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SUMMARY 

A new computer code, called PROTEUS, has been developed to solve the two-dimensional planar or 
axisymmetric, Reynolds-averaged, unsteady compressible Navier-Stokes equations in strong conservation 
law form. The objective in this effort has been to develop a code for aerospace propulsion applications that 
is easy to use and easy to modify. Code readability, modularity, and documentation have been emphasized. 

The governing equations are written in Cartesian coordinates and transformed into generalized 
nonorthogonal body-fitted coordinates. They are solved by marching in time using a fully-coupled 
alternating-direction-implicit solution procedure with generalized first- or second-order time differencing. 
The boundary conditions are also treated implicitly, and may be steady or unsteady. Spatially periodic 
boundary conditions are also available. All terms, including the diffusion terms, are linearized using 
second-order Taylor series expansions. Turbulence is modeled using an algebraic eddy viscosity model. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple Cartesian or polar grids may be generated internally by the program. More complex geometries 
require an externally generated computational coordinate system. 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in PROTEUS. It describes in detail the governing equations, 
the turbulence model, the linearization of the equations and boundary conditions, the time and space dif- 
ferencing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User's 
Guide, and contains information needed to run the program. It describes the program s general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements, 
the diagnostic messages that may be generated, the job control language used to run the program, and se- 
veral test cases. Volume 3, the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 
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1.0 INTRODUCTION 


Much of the effort in applied computational fluid dynamics consists of modifying an existing program 
for whatever geometries and flow regimes are of current interest to the researcher. Unfortunately, nearly 
all of the available nonproprietary programs were started as research projects w-ith the emphasis on dem- 
onstrating the numerical algorithm rather than ease of use or ease of modification. I he developers usually 
intend to clean up and formally document the program, but the immediate need to extend it to new ge- 
ometries and flow regimes takes precedence. 

The result is often a haphazard collection of poorly written code without any consistent structure. An 
extensively modified program may not even perform as expected under certain combinations of operating 
options. Each new user must invest considerable time and effort in attempting to understand the underlying 
structure of the program if intending do anything more than run standard test cases with it. I he user s 
subsequent modifications further obscure the program structure and therefore make it even more difficult 
for others to understand. 

The PROTEUS two-dimensional Navier-Stokes computer pro-am is a user-oriented and easily- 
modifiable flow analysis program for aerospace propulsion applications. Readability, modularity, and 
documentation were primary objectives during its development. The entire program was specified, de- 
signed, and implemented in a controlled, systematic maimer. Strict programming standards were enforced 
by immediate peer review of code modules; Kemighan and Plauger (1978) provided many useful ideas about 
consistent programming style. Every subroutine contains an extensive comment section describing the 
purpose, input variables, output variables, and calling sequence of the subroutine. With just two clearly- 
defined exceptions, the entire program is written in ANSI standard Eortran 77 to enhance portability. A 
master version of the program is maintained and periodically updated with corrections, as well as extensions 
of general interest (e.g., turbulence models.) 

The PROTEUS program solves the unsteady, compressible, Reynolds-averaged Navier-Stokes 
equations in strong conservation law form. The governing equations are written in Cartesian coordinates 
and transformed into generalized nonorthogonal body-fitted coordinates. I hey are solved by marching in 
time using a fully-coupled alternating-direction-implicit (ADI) scheme with generalized time and space dif- 
ferencing (Briley and McDonald, 1977; Beam and Warming, 1978). The current turbulence model is based 
upon the algebraic eddy-viscosity model of Baldwin and Lomax (1978). All terms, including the diffusion 
terms, are linearized using second-order Taylor series expansions. The boundary conditions are treated 
implicitly, and may be steady or unsteady. Spatially periodic boundary conditions are also available. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple grids may be generated internally by the program; more complex geometnes require external gnd 
generation, such as that developed by Chen and Schwab (1988). 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in PROTEUS. It describes in detail the governing equations, 
the turbulence model, the linearization of the equations and boundary conditions, the time and space dif- 
ferencing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User s 
Guide, and contains information needed to run the program. It describes the program's general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements, 
the diagnostic messages that may be generated, the job control language used to run the program, and se- 
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veral test cases Volume 3 the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 

The authors would like to acknowledge the significant contributions made by three co-workers in the 
development of the PRO! EL’S program. Simon Chen did the original coding of the Baldwin-Lomax tur- 
bulence model, and consulted in the implementation of the nonlinear coefficient artificial viscosity model. 

dfiam Kumk developed the original coding for computing the metrics of the generalized nonorthogonal 
gnd transformation^ Frank Molls made many debugging and verification runs, particularly for spatially 
periodic and unsteady flows. v y 
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2.0 PROGRAM STRUCTURE 


2.1 FLOW CHART 

In this section, a flow chart is presented showing the overall sequence of tasks performed by the two- 
dimensional PROTEUS computer code. Depending on the various options used in a particular run, ot 
course, some of the elements in the chart may be skipped. 



Figure 2.1 - Flow chart for the 2-D PROTEUS computer code. 
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Figure 2.1 - Continued. 



Program Structure 
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Figure 2.1 - Concluded. 
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2.2 SUBPROGRAM CALLING TREE 


In this section, the calling sequence for the various subprograms in the PROTEUS 2-D code is shown 
using a tree structure. The subheadings correspond to the elements of the flow chart shown in the previous 
section. I he mam program, listed in the first column, calls the subprograms in the second column which 
m turn call those in the third column, etc. For any given case, of course, some of these routines will not 
e use e su programs needed for a particular case will depend on the combination of input parameters 
being used. The individual subprograms are described in detail in Section 4.0. 


INITIALIZATION 

Read and print input. 

MAIN 

INPUT 

ISAMAX 



Get grid and r 

netric parameters. j 

MAIN 

GEOM 

PAK 

METS 

ROBTS 

CUBIC 

OUTPUT 

PRTOUT 


Get initial flov 

/ field. 


MAIN 

INITC 

REST 
I NIT 
FTEMP 
EQS'IAT 
TURBBL 

METS 

VORTEX 

BLOUT1 

BEINl 

BLOUT2 

BLIN2 

ISAMAX 

ISAMIN 

ISAMAX 

ISAMIN 


■ — — i 

Set point-by-point boundary condition values. 


MAIN 

BCSET 


Initialise plot fi 

les and print initial or restart flow field. 


PIOT 

OUTPUT 

PRTOUT 




SET UP FOR TIME STEP 


Compute time step size. 

i — . . 

MAIN 

TIMSTP 

ISAMAX 


Reset boundary conditions if time-dependent. 

| MAIN TBC 

BCSET 
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FILL BLOCK COEFFICIENT MATRIX 

Add extra data line at N + 1 if spatially periodic in sweep direction. 

MAIN 

EXEC PERIOD 


i — . — 

Compute coefficients of governing equations. 


MAIN 

EXEC 

EQSTAT 

COEFC 

COEFX 

COEFY 

COEFE 

COEFZ 




Add boundary 

conditions. 


MAIN 

EXEC 

EQSTAT 

BCGEN 

BCELIM 

BCQ 

BCUVEL 

BCWEL 

BCWVEL 

BCPRES 

BCTEMP 

BCDENS 

BCVDIR 

BCF 

BLKOUT 

SGEFA 

SGESL 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCFLIN 

BCMET 

BCGRAD 


Compute resid 

. * 

uals without artificial viscosity terms (sweep 1 only.) 


MAIN 

EXEC 

RESID 

SNRM2 

ISAMAX 

SASUM 



Add artificial \ 

■ 1 ... ■ 
dscosity. 


MAIN 

EXEC 

AVISC1 

AVISC2 

BLKOUT 

BLKOUT 



Compute resid 

■ — 1 — 

Inals with artificial viscosity terms (sweep 1 only.) 


MAIN 

EXEC 

RESID 

SNRM2 

ISAMAX 

SASUM 
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SOLVE DIFFERENCE EQUATIONS 


Perform matrix inversion. 
MAIN EXEC 


EXEC 

ADI 

BLKOUT 
BEK3P 
BI K3 

FILTER 



BEK4P 

BEK4 

FILTER 



BLK5P 

BLK5 

FILTER 


UPDATE 




Update boundary values from first sweep. 


EXEC 


BVUP 


EQSTAT 

BCGEN 


BCQ 

BCUVEE 

BCVVEE 

BCWVEL 

BCPRES 

BCTEMP 

BCDF.NS 

BCVDIR 

BCE 


SGEFA 

SGESL 


BLKOUT 
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FINISH TIME STEP AND CHECK RESULTS 

Update auxiliary variables. 

1 

MAIN 

EQSTAT 

FTEMP 





Update turbule 

nee parameters. 


MAIN 

TURBBL 

VORTEX 

BLOUT1 

BLIN1 

BLOUT2 

BLIN2 

ISAMAX 

ISAMIN 

ISAMAX 

ISAMIN 



Check for com 

mergence. 

MAIN 

CONV 

ISAMAX 



GENERATE OUTPUT 

Print flow field output. 

MAIN 

OUTPUT PRTOUT 


Write plot and restart files. 


MAIN 

PLOT 

REST 





Print converge 

nee history. 

MAIN 

PRTHST 




2.3 PROGRAMMING CONVENTION'S AND NOTES 


2.3.1 Computer & Language 

At NASA Lewis Research Center, PROTEUS is normally run on a Cray X-MP computer. With just 
two known exceptions, it is written entirely in ANSI standard Fortran 77 as described in the CF 177 et- 
erence Manual (Cray Research, Inc., 1988a). The first exception is the use of namelist input. With namehst 
input, it's relatively easy to create and/or modify input files, to read the resulting files, and to program de- 
fault values. Since most Fortran compilers allow namelist input, its use is not considered a serious problem. 
The second exception is the use of *CALL statements to include ♦COMDECKS, which contain the labeled 
common blocks, in most of the subprograms. This is a Cray UPDATE feature and therefore the source 
code must be processed by UPDATE to create a file that can be compded. 1 UPDATE is described in the 
UPDATE Reference Manual (Cray Research, Inc., 1988c). Since using the *CALL statements results in 
cleaner, more readable code, and since many computer systems have an analogous feature, the *CALL 
statements were left in the program. 


Six library' subroutines are called by PROTEUS. ISAMAX, SASUM, and SNRM2 are Cray Basic 
Linear Algebra Subprograms (BLAS). ISAMIN is a Cray extension to the BLAS routines. SGEPA and 
SGESL are Cray versions of LINPACK routines. All of these routines are desenbed m detad in Section 
4.0, and in the Programmer's Library Reference Manual (Cray Research, Inc., 1988b). 


1 See the example in Section 8.1 of Volume 2. 
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The PROTEUS code is highly vectorized for optimal performance on the Cray. The coefficient gener- 
ation ts vectorized in the ADI sweep direction. Since the coefficient matrix is block tridiagonal the 
equations are solved using the Thomas algorithm. This algorithm is recursive, and therefore cannot be 
vectonzed m the sweep direction. However, by storing the coefficients and source terms in both coordinate 
directions, the algorithm can be vectonzed in the non-sweep direction. This increases the storage required 
by the program, but greatly decreases the CPU time required for the ADI solution. 

2.3.2 Fortran Variables 


Variable Names 

In developing PROTEUS, code readability has been emphasized. We have therefore attempted to 
choose Port ran vanable names that are meaningful. In general, they either match the notation used in the 
analysis description m Volume 1, or are in some way descriptive of the parameter being represented. For 
example, RHO, U, V, W, and ET are the Fortran variables representing the density p, the velocities u v 
and w, and the total energy per unit volume E r . 

REAL and INI EGER Variables 


In general, the type (REAL or INTEGER) of the Fortran variables follows standard Fortran convention 
(i.e., those starting with I, J, K, L, M, or N are INTEGER, and the remainder are REAL ) There are 
however, several vanables that would normally be INTEGER but are explicitly declared to be REAL’ 
Ihese are noted in the input description in Section 3.0 of Volume 2, and in the description of common 
block vanables in Section 3.0 of this volume. 


Array Dimensions 

rn^Inprl? dTd are dimensioned using PARAMETERS. The PARAMETERS are set in 

p^auctcdj? TluS aU ? WS the code to be redimen sioned simply be changing the appropriate 

f a A,, TER , S ’ and then recom P lLn « the entire Program. The PARAMETERS are described in Section 
6.2 ot Volume 2. 


Initialization 


All of the input Fortran variables, plus some additional variables, are initialized in BLOCK DATA 
Most of the input variables are initialized to their default values directly, but some are initialized to values 
that trigger the setting of default values in subroutine INPUT. On the Cray X-MP at NASA Lewis all 
uninitialized vanables have the value zero. There are no known instances in the PROTEUS code, however 
in which a vanable is used before it is assigned a value. 

N ondimensiona lization 


In general, Fortran variables representing physical quantities, such as RHO, U, etc., are nondimensional. 
1 wo types of nondimcnsionalizmg factors are used - reference conditions and normalizing conditions. The 
factors used to nondimensional ize the governing equations in Section 2.0 of Volume 1 are called normalizing 
conditions. These normalizing conditions are defined by six basic reference conditions, for length velocity 
temperature, density, viscosity, and thermal conductivity, which are specified by the user. The normalizing 
conditions used in PROTEUS are listed in Table 3- 1 of Volume 2 ' 8 


Note that for some variables, like pressure, the normalizing condition is dictated by the form of the 
governing equations once the six basic reference conditions are chosen. Unfortunately, some of these may 
not be physically meaningful or convenient for use in setting up input conditions. Therefore, some addi- 
tional reference condhions are defined from the six user-supplied ones. The reference conditions are listed 
in I able 3-2 of Volume 2. 


Throughout most of the PROTEUS code, physical variables are nondimensionalized by the normalizing 
conditions. For input and output, however, variables are nondimensionalized by the reference conditions 
because they are usually more physically meaningful for the user. The Fortran variables representing the 
reference conditions themselves are, of course, dimensional. 
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One-Dimemional Addressing of T wo- Dimensional Arr ays 


In the solution algorithm used in PROTEUS, there are several instances in Y^^^c'cOfTx 
he followed in both ADI sweep directions. An example is the computation , in the CO h PC, LUt A, 

In order to use the same coding for both sweeps, a scheme for one-dimensional addressing 
dimensional array has been used . 2 

In Fortran multi-dimensional arrays are actually stored in memory' as a onc-dimcnsional ^quence of 
values, w,th the first subscript incremented over its range first, then the second^ 

♦ f,u;.in PROTFl S As a first step the two-dimensional array is hQUlVALLAUi aioa one 
vantage of thi, in PROTLeS^ As a lirst^lcp, one . dimcnsionaI amy name is derived from the 

ffoTrnln™U°y namc by adding a "f . Thus, Ictt.ng F represent a typical two-dimens, onal array, 

DIMENSION F(NlPa N2P) , Fl(NTOTP) 

EQUIVALENCE ( F( 1 » 1 ) * Fl( 1 ) ) 

, VIP j vt[) are PARAMETERS specifying the dimension size in the f and i/ directions, and 
NTOTP is Next, we define a "step ^or" which depends on the 

ADI sweep, and a "base index" which depends on the index in the non-sweep direction. For the first 
sweep, 

ISTEP = 1 

DO 1000 12 = 2 , NPT2T 
IV = 12 

IBASE = 1 + CI2-1)*N1P 


1000 CONTINUE 

And for the second ADI sweep, 

ISTEP = NIP 

DO 2000 II = 2 , NPT1-1 

IV = II 

IBASE = II 


2000 CONTINUE 

looks like 


DO 100 
IIM1 = 
II = 
IIP1 = 


I = 2> NPTST 
IBASE + ISTEPX(I-2) 
IBASE + ISTEPX(I-l) 
IBASE + ISTEP*I 


Second is the index in the sweep direction (i.e„ { for the first sweep and „ for the second sweep.) 
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100 CONTINUE 


where I represents the index in the sweep direction. With this coding, for the first sweep 


Fl(IIMl) 
FI ( II ) 
Fl(IIPl) 


F(I1-1,I2) 
FC II ,12) 
FCIl+1,12) 


And for the second sweep, 


Fl(IIMl) 
FI ( 1 1 ) 
F1CIIP1) 


F( 1 1 , 1 2-1 ) 
F( II , 12 ) 
F(I1 , 12+1 ) 


Two- Level Storage 


r V Vl \V I B r a r rn ' W T in8 tirT ! e dlflferencin g sch eme used in PROTEUS, the dependent variables RHO 


STAGE IN TIME STEP 
FROM LEVEL n TO n + 1 

TIME LEVEL 
FOR F 

TIME LEVEL 
FOR FL 

From start to end of sweep 1 

n 

n- 1 

* 

From end of sweep 1 to end of sweep 2 

n 

From end of sweep 2 to update in EXEC 

n 

n + 1 
n 

From update in EXEC to start of next step 

n -f- 1 


DU MM Y Array 

usecfas aTmnnr^’^ two 'dimensional array called DUMMY is stored in common block DUMMY1 and 
u porar> storage location in several areas of the code This arrav is DUVfFM^TnNiVH \tip k 

rIid r, c , as 'S e r no :r van \ bles ' me,ncs - e,c dummy is ^ 

S.LO t TuSirXnS'BT Tr ta f brOU ?" BCF “<* BLIN2 

sets r subrou,me prtout n — » - - « P«sr, e h e 0 x u „Lr s„s ■ 
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3.0 COMMON BLOCKS 


Transfer of data between routines in PROTEUS is primarily accomplished through the use of labeled 
common blocks. Each common block contains variables dealing with a particular aspect of the analysis, 
and is stored in a separate Cray COV1DECK (Cray Research, Inc., 1988c). The common block names are 
the same as the COMDECK names. These names also correspond to the names of the input namelists^ 
All the variables in namelist BC are stored in common block BC1, etc. The Fortran variables in each 
common block are stored in alphabetical order. 


3.1 COMMON BLOCK SUMMARY 

Block Name Description 


BC1 

DUMMY 1 
FLOW1 

GMTRY1 

IC1 

IOl 

METRIC 1 

NUM1 

RSTRT1 

TIME1 


TITLE 1 
TURB1 


Boundary condition parameters. 

Scratch array. 

Variables dealing with fluid properties and the flow being com- 
puted. 

Parameters defining the geometric configuration. 

Variables needed for setting up initial conditions. 

Parameters dealing with program input/output requirements. 

Metrics of the nonorthogonal grid transformation, plus the 
Cartesian coordinates of the grid points. 

Parameters associated with the numerical method. 

Parameters dealing with the restart option. 

Parameters dealing with the time step selection and convergence 
determination. 

Descriptive title for case being run. 

Turbulence parameters. 


3,2 COMMON VARIABLES LISTED ALPHABETICALLY 

In this section all the PROTEUS Fortran variables stored in common blocks are defined, listed alpha- 
betically by variable name. Those marked with an asterisk are input variables. More details on these var- 
iables may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given in 
parentheses at the end of each definition. For subscripted variables, the subscripts are defined along with 
the variable, except for the subscripts II and 12, which are the indices i andy in the £ and yj directions, re- 
spectivelv, and run from 1 to A', and A r 2 . 

This list also includes the Cray PARAMETERS used as array dimensions. These are not actually stored 
in a common block, but are stored in the Cray COMDECK PARAMS1. More details may be found in 
Section 6.2 of Volume 2. 

Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer of the 
variables follows standard Fortran convention, unless stated otherwise, (l.e., those starting with I, J, K, 
L, M, or N are integer, and the remainder are real.) 
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Fortran 

Variable 


Symbol 


Definition 


A(IV,U,K) A 


ALPHA a 

* ALPHA 1 a, 

* ALPHA2 « 2 

* APLUS A + 

B(IV,I,J,K) B 


C(IV,I,J,K) C 


♦ CAVS2H(I) if or * 2 

♦ CAVS2I(I) £/ 

♦ CAVS4E(I) or k 4 


Subdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the vectorized direction (i.e., the non-sweep direction in 
vv’hrch the "BLK" routines are vectorized), and runs from 2 to 
'V. - 1- The subscript J = 1 to N cq , corresponding to the N 
coupled governing equations, and K = 1 to V corresponding 
to the N eq dependent variables. (N'UMl) 


Difference centering parameter for first derivatives in the ADI 
sweep direction. (N'UMl) 


Difference centering parameter for £ direction first derivatives. 
ALPHA 1 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. (NUM1) 

Difference centering parameter for rj direction first derivatives. 
ALPHA2 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. (NUM1) 

Van Driest damping constant in the inner and outer regions 
of the Baldwin- Lomax turbulence model. (TURB1) 

Diagonal submatrix of coefficients at grid point I in the block 
tndiagonal coefficient matrix. I is the grid index in the sweep 
direction, running from 1 to N. IV is the grid index in the 
"vectorized" direction (i.e., the non-sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
•V. — F T he subscript J = 1 to N tq , corresponding to the N 
coupled governing equations, and K = 1 to N corresponding 
to the N eq dependent variables. (NUM1) 

Superdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to IV. IV is the grid index in 
the vectorized direction (i.e., the non-sweep direction in 
which the BLK" routines are vectorized), and runs from 2 to 
A , — 1. I he subscript J = 1 to ,\' eq , corresponding to the N 
coupled governing equations, and K = 1 to AL, corresponding 
to the \ eq dependent variables. (N'UMl) 

Second-order explicit artificial viscosity coefficient in constant 
coefficient model, or user-specified constant in nonlinear co- 
efficient model. The subscript I = 1 to A’, ? , corresponding to 
the N eq coupled governing equations. (NUM1) 


Second-order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to (V corresponding 
to the N eq coupled governing equations. (N’UMl) 


Fourth-order explicit artificial viscosity coefficient in constant 
coefficient model, or user- specified constant in nonlinear co- 
efficient model. The subscript I = 1 to N eq , corresponding to 
the X eq coupled governing equations. (N'UMl) 
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CB 

B 

CCLAU 

K 

CCP 

c CP 

CCP1-4 

- <v 

CFL(I) 


CFLMAX 

CFLMIN 

CIIGAVG(I) 


CHGMAX(U) 

AQ W „ 

CHGl 


CIIG2 


CKLEB 

CjCleb 

CK 1-2 

Ck\ ■ F k2 

CMU1-2 

C, t - C, 2 

CNA 

n 


Constant used in the formula for the Klebanoff intermittency 
factor F K!e6 in the outer region of the Baldwin-Lomax turbu- 
lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (TLRB1) 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. (TURB1) 


Constant used in the outer region of the Baldwin-Lomax tur- 
bulence model. (TURB1) 

Constants in empirical formula for specific heat as a function 
of temperature. (FLOW1) 

The ratio At/At c ^/ where At is the actual time step used in the 
implicit calculation and At cfi is the allowable time step based 
on the Courant- Friedrichs- Lewy (CFL) criterion for explicit 
methods. 1 is the time step sequence number, and runs from 
1 to NTSEQ. (TIME1) 


Maximum allowed value of the CFL number. (TIME1) 

Minimum allowed value of the CFL number. (TIME1) 

Maximum change in absolute value of the dependent vari- 
ables, averaged over the last NITAVG time steps. 3 The sub- 
script 1=1 to N eqt corresponding to the N eq dependent 
variables. (TIME1) 

Maximum change in absolute value of the dependent variables 
over a single time step. 3 The subscript 1 = 1 to /V corre- 
sponding to the N„ dependent variables, and J = 1 to 
NITAVG, the number of time steps used in the moving av- 
erage option for deterniining convergence. (TIME1) 

Minimum change, in absolute value, that is allowed in any 
dependent variable before increasing the time step. 3 (TIME1) 

Maximum change, in absolute value, that is allowed in any 
dependent variable before decreasing the time step. 3 (TIME1) 

Constant used in the formula for the Klebanoff intermittency 
factor F KUb in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURB1) 

Constants in empirical formula for thermal conductivity coef- 
ficient as a function of temperature. (FLOW1) 

Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. (FLOW1) 

Exponent in the formula used to average the two outer region 
ji t profiles that result w r hen both boundaries in a coordinate 
direction are solid surfaces. (TURB1) 


3 For the energy equation, the change in E r is divided by E Tf — p r RT r j{y r - 1) + u?j2, so that it is the same order 
of magnitude as the other conservation variables. 
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* CM, 

n 

Exponent in the Launder- Priddin modified mixing length 
formula for the inner region of the Baldwin- Lomax turbulence 
model. (TL'RBl) 

('[’(11.12) 

c p 

Specific heat at constant pressure at time level n. (ELOW1) 

c: V( ii,i2) 

c v 

Specific heat at constant volume at time level n. (FL.OW1) 

* CVK 

K 

Von Karman mixing length constant used in the inner region 

° “ 1C Baldwin- Lomax and Spalding- Kleinstcin turbulence 
models. (TER B 1) 

* CWK 

c wk 

Constant used in the formula for F weke in the outer region of 
the BaJdwin-I.omax turbulence model. (TL'RBl) 


A£ or Aij 

Computationa! gnd spacing in the ADI sweep direction. 
( N L M 1 ) 

DMA 

Ai] 

Computational grid spacing in the rj direction. (NT 'Ml) 

npDir(i) 

OplMy 

I he derivative of p with respect to E r , stored as a one- 
dimensional jirray in the sweep direction, The subscript I 
therefore runs from 1 to N. (FLOW1) 

ni’DRHO(I) 

dp! o P 

J he derivative of p with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) 

l)l’l)RU(I) 

dpld(pu) 

1 he derivative of p with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW!) 

DPDRV(I) 

dpjd(pv) 

1 he derivative of p with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from i to N. (FLOWl) 

DPDRW(I) 

dpjd(pw) 

The derivative of p with respect to pw, stored as a one- 
duncnsional array in the sweep direction. The subscript I 
therefore runs from 1 to A f . (FLOW!) 

* DT(I) 

At 

1 he time step size, when specified directly as input. I is the 
(TIMF jP SeqUCnCC numbe F and runs from 1 to NTSEQ. 

DTAE(I1.I2) 

At 

Computational time step size. (TIMF1) 

I)H)M(I) 

dT/dEr 

1 he derivative of T with respect to £ r , stored as a one- 
dtmensional array in the sweep direction. The subscript I 
therefore runs from 1 to A\ (FLOWl) 

DTDRHO(I) 

dT/dp 

The derivative of 7 with respect to p } stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) 1 

DTDRL'(I) 

dTld(pu) 

Ihe derivative of T with respect to pu , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) " 
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DTDRV(I) 


dTid(pv) 


The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 


DTDRW(I) dTld(pw) 

* DTF1 

* DTP 2 

* DTMAX 

* D I M IN 
DUMMY(I1,I2) 


DXI A£ 

* F.PS(I) £ 

ER 

ET(I1,12) F. t 

ETAT(I1,I2) n, 

ETAX(I1,I2) n, 

ETAY(I1,I2) *i y or >j, 

ETUI 1,12) E t 

* FBC1(12,I,J) 


* FBC2(I1,I,J) 


* GAMR y r 


The derivative of T with respect to piv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to ;V. (FLOW1) 

Factor by which the time step is multiplied if the solution 
changes too slowly. (T1ME1) 

Factor by which the time step is divided if the solution 
changes too quickly. (TIME1) 

Maximum value that At is allowed to reach, or the maximum 
At used in the time step cycling procedure. (TIME1) 

Minimum value that At is allowed to reach, or the minimum 
At used in the time step cycling procedure. (TIME1) 

Dummy array used for temporary storage in several subrou- 
tines. (DUMMY 1) 

Computational grid spacing in the £ direction. (NUM1) 

Convergence level to be reached. The subscript I = 1 to N eq , 
corresponding to the N eq dependent variables. (TIME1) 

Dimensional reference energy, p,w r 2 . (F'LOWl) 

Total energy at time level n. (FLOW1) 

The derivative of the computational coordinate with respect 
to untransformed time t. (MET RIC1) 

The derivative of the computational coordinate >/ with respect 
to the Cartesian coordinate x. (MET RIC1) 

The derivative of the computational coordinate t] with respect 
to the Cartesian coordinate y or cylindrical coordinate r. 
(METRIC 1) 

Total energy at previous or intermediate time level. (FLOW1) 

Point-by-point values used for steady boundary conditions on 
the £ = 0 and £ = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to ;Y e? , correspondmg 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the £ = 0 and f = 1 boundaries, respectively. (BC1) 

Point-bv-point values used for steady boundary' conditions on 
the tj = 0 and r) = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by 7 the program itself. 1 runs from 1 to N tq , corresponding 
to the ,V f? conditions needed, and J = 1 or 2, corresponding 
to the ij = 0 and = 1 boundaries, respectively. (BC1) 

Reference ratio of specific heats, c p Jc„ r . (FLOW1) 
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* GBC1(I,J) 


♦ GBC2(I,J) 


* GTBCl(K.U) 


* GTBC2(K,I,J) 


IISTAG h r 

♦ IISTAGR h r 

1 r 

♦ IAV2F. 


♦ IAV2I 

♦ IAV4E 


* IAXI 


Values used for steady boundary' conditions on the £ = 0 and 
i = 1 boundaries, when specified for the entire surface. I runs 
from 1 to ,V„, corresponding to the ,V conditions needed, and 
J = 1 or 2, corresponding to the £ = 0 and f = 1 boundaries, 
respectively. (BC 1 ) 

Values used for steady boundary conditions on the >7 = 0 and 
>1 = 1 boundaries, when specified for the entire surface. I runs 
from 1 to A corresponding to the N conditions needed, and 
J = 1 or 2, corresponding to the >j = 0 and >7 = 1 boundaries, 
respectively. (BC 1 ) 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lb m -ft/lb r sec 2 , or 1.0 kg-m/N-sec 2 . (FLOW1) 

A variable used to specify the values for unsteady and time- 
periodic boundary' conditions on the £ = 0 and £ = 1 bound- 
aries. I runs trom 1 to N eq , corresponding to the N t 
conditions needed, and J = [ or 2 , corresponding to the £ = 0 
and { = 1 boundaries, respectively. For general unsteady 
boundary conditions, K = 1 to NTBC, corresponding to the 
time levels in the array NTBCA, and GTBC1 specifies the 
boundary condition value directly. For time-periodic bound- 
ary conditions, K = 1 to 4 , and GTBC1 specifies the four co- 
efficients in the equation used to determine the boundary- 
condition value. (BC1) 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the >7 = 0 and rj — 1 bound- 
aries. 1 runs from 1 to N, v corresponding to the A, 
conditions needed, and J = 1 or 2, corresponding to the >7 = "d 
and >7 = 1 boundaries, respectively. For general unsteady 
boundary conditions, K = 1 to NTBC, corresponding to the 
time levels in the array NTBCA, and GTBC2 specifies the 
boundary condition value directly. For time-periodic bound- 
ary conditions, K = 1 to 4, and GTBC2 specifies the four co- 
efficients in the equation used to determine the boundary 
condition value. (BC1) 

Stagnation enthalpy used with constant stagnation enthalpy 
option. (FI.OW1) 


Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. (FLQYV1) 

Flag for second-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 

Mag for second -order implicit artificial viscosity; 0 for none, 
1 for constant coefficient model. (NUM1) 

Flag for fourth-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 

Flag for two-dimensional planar or axisymmetric flow; 0 for 
two-dimensional planar, 1 for axisymmetric. (GMTRY1) 
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IBASE 


IBCELM(U) 


* I BC 1(12, 1 ,J) 


♦ IBC2(I1,I,J) 


IBVUP(I) 


* ICHECK 
ICONV 

* ICTEST 

♦ ICVARS 

* IDEBUG(I) 

♦ IDTAU 

+ IDTMOD 

♦ IEULER 


Base index used with ISTEP to compute one-dimensional 
index for two-dimensional array. Then, for example, for any 
sweep L (1 1,12) = UlfIBASE + ISTEP*(I - 1)) where I is the 
grid index in the sweep direction. (NUM 1) 

Elags for elimination of off-diagonal sub-matrices resulting 
from gradient or extrapolation boundary conditions: 0 if 
elimination is not necessary, 1 if it is. The subscript 1 = 1 or 
2 corresponding to the sweep direction, and J = 1 or 2 corre- 
sponding to the lower or upper boundary in that direction. 
(BC1) 

Flags specifying, point-by-point, the type of steady boundary' 
conditions used on the £ = 0 and £ = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N eq , corresponding to the N tq conditions needed, and J = 1 
or 2, corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. (BC1) 

Flags specifying, point-by-point, the type of steady boundary' 
conditions used on the r; = 0 and rj = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N e , corresponding to the A',, conditions needed, and J = 1 
or 2, corresponding to the tj = 0 and rj = 1 boundaries, re- 
spectively. (BC1) 

Flags for updating boundary values from the first sweep after 
the last sweep: 0 if updating is not necessary, l if it is. Up- 
dating is required when gradient or extrapolation boundary 
conditions are used. The subscript I = 1 or 2, corresponding 
to the lower or upper boundary in the first sweep direction. 
(BC1) 

Results are checked for convergence every ICHECK'th time 
level. (TIM 1:1) 

Convergence flag; 0 if not converged, 1 if converged. 
(TIME1) 

Flag for convergence criteria to be used. (TIME1) 

Parameter specifying which variables arc being supplied as 
initial conditions by subroutine INIT. (FLOW1) 

A 20-element array of flags specifying various debug options. 
(IOl) 

Flag for time step selection method. (TIME1) 

The time step size is modified every IDTMOD th tune step. 
(TIME1) 

Flag for Euler calculation option; 0 for a full time-averaged 
Navier-Stokes calculation, 1 for an Euler calculation. 
(FLOW1) 
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IGAM 

IGINT(I) 

* IHSTAG 

* I LA MV 


* ILDAMP 


INEG 

♦ INNER 

♦ IPACK(I) 

♦ IPLOT 

♦ IPLT 

♦ IPLTA(I) 

♦ IPRT 

♦ IPRTA(I) 

♦ IPRT1 

♦ IPRT2 

♦ IPRTIA(I) 


Flag set by method used to select GAMR; 0 if GAMR is de- 
faulted (and hence c p and c„ are functions of temperature), 1 
if GAMR is specified by user (and hence c. and c are con- 
stants). (FLOWl) 

Flags for grid interpolation requirement; 0 if interpolation is 
not needed, 1 if interpolation is needed. The subscript 1 = 1 
or 2, corresponding to the £ and rj directions, respectively. 
(GMTRY1) 


Flag for constant stagnation enthalpy option; 0 to solve the 
energy equation, 1 to eliminate the energy equation by as- 
suming constant stagnation enthalpy. (FLOWl) 

Flag for computation of laminar viscosity and thermal 
conductivity; 0 for constant values, 1 for functions of local 
temperature. (FLOWl) 

Flag for the Launder- Priddin modified mixing length formula 
in the inner region of the Baldwin-Lomax turbulence model 
(TURB1) 

Flag indicating non-positive values of pressure and/or tem- 
perature; 0 for no non-positive values, I for some. (FLOWl) 

Flag for type of inner region turbulence model. (TURB1) 

Flags for grid packing option; 0 for no packing, 1 to pack 
points as specified by the input array SQ. The subscript 
1=1 or 2, corresponding to the £ and k directions, respec- 
tively. (NUM1) 

Flag controlling the creation of an auxiliary file, usually called 
a "plot file", used for later post -processing. (101) 

Results are written into the plot file every IPLT time levels 

( 101 ) 

Fime levels at which results are written into the plot file. The 
subscript 1=1 to 101, the maximum number of time levels 
that may be written. (IOl) 

Results are printed every IPRT time levels. (IOl) 

l ime levels at which results are printed. The subscript I = 1 
to 101, the maximum number of time levels that may be 
printed. (IOl) 

Results are printed at every IPRTl th mesh point in the £ 
direction. (IOl) 

Results are printed at every IPRT2'th mesh point in the >/ 
direction. (IOl) 

£ indices at which results are printed. The subscript I = 1 to 
a maximum of Nl, the number of grid points in the t direc- 
tion. (IOl) 
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* IPRT2A0) 

* IRIS! 
ISTEP 
ISWFFP 

* ISWIRL 

it 

ITBEG 

ITDBC 


hind 

* iteta 

* ITHIN(I) 


ITSFQ 

* I I I RB 

* rrxi 

* I UMTS 
IV 


* IVOUT(I) 


y\ indices at which results are printed. The subscript 1=1 to 
a maximum of N2, the number of grid points in the ij direc- 
tion. (101) 

Flag controlling the reading and writing of auxiliary’ files used 
for restarting the calculation in a separate run. (RS 1 R 1 l) 

Multiplication factor used with I BASK to compute one- 
dimensional index for two-dimensional array. (NT Ml) 

Flag specifying ADI sweep direction; 1 tor £ direction and 2 
for >] direction. (NL'Ml) 

Flag for swirl in axisymmetric flow; 0 for no swirl, 1 tor swirl. 
(FLOWl) 

n Current time step number, or known time level, dime step 

number n updates the solution from time level n to n K 1 . 
( I IMF 1) 


The time time step number, or known time level /?, at the 
beginning of a run. For a non- restart ease, 1 1 HI Cx 1. 
(TIME1) 

Flag for time-dependent boundary conditions; 0 if all bound- 
ary conditions arc steady, 1 if any general unsteady boundary 
conditions arc used, 2 if only steady and time-periodic 
boundary' conditions are used. (BC1) 

The final time step number. (TIMHl) 

Flag for computing turbulent viscosity on constant >/ lines. 
(TURB1) 

Flags for thin-layer option; 0 to include 2nd. derivative 
viscous terms, 1 to eliminate them. I he subscript I = 1 or 2, 
corresponding to the £ and tj directions, respectively. 
(FLOW!) 

Current time step sequence number. (TIMF F) 

Flag for turbulent flow option; 0 for laminar flow, 1 for tur- 
bulent How using the Baldwin- Lomax algebraic turbulence 
model. (FU RBI) 

Flag for computing turbulent viscosity on constant c lines. 
(TURB1) 

Flag for type of units used to specify reference conditions; 
0 for English units, 1 for SI units. (101) 

i v Grid point index in the "vectorized* direction (i.e., the non- 

sweep direction in which the "BTK" routines are vectorized). 
Therefore, IV = j for the first sweep and / for the second 
sweep. (NUM1) 

A 50-element array specifying which variables are to be 
printed. (IO 1 ) 
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* IWALLl(I) 


Flags indicating type of surfaces in the £ direction; 0 for a free 
boundary , 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the £ = 0 and £ — 1 surfaces, respectively. 

(TURB1) 

* IWALL2(I) Flags indicating type of surfaces in the yj direction; 0 for a free 

boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the rj = 0 and rj = 1 surfaces, respectively. 

(TURB1) 


II / Grid point index in the £ direction. (NUM1) 


12 

J 

Grid point index in the rj direction. (NUM1) 

♦ JBC1(I,J) 


Flags specify ing the type of steady boundary conditions used 
on the £ = 0 and £ = 1 surfaces, when specified for the entire 
surface. I runs from 1 to N eqt corresponding to the N t<f con- 
ditions needed, and J = 1 or 2, corresponding to the £ = 0 and 
£ = 1 boundaries, respectively. (BCI) 

♦ JBC2(I,J) 


Flags specifying the type of steady boundary conditions used 
on the r] = 0 and y\ = 1 surfaces, when specified for the entire 
surface. I runs from 1 to N eqy corresponding to the N eq con- 
ditions needed, and J = 1 or 2, corresponding to the rj — 0 and 
r] = 1 boundaries, respectively. (BCI) 

JI(1 1 ,12) 

J 1 or rJ -> 

Normally the inverse Jacobian of the non-orthogonal grid 
transformation. For the COEF routines in axisymmetric 
flow, it is temporarily redefined as the product of the local 
radius and the inverse Jacobian. This is a type REAL vari- 
able. (METRIC 1) 

* JTBC1(I,J) 


A variable specifying the type of time dependency for the 
boundary conditions on the £ = 0 and £ = 1 boundaries. I 
runs from 1 to N eq , corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the £ = 0 and £ — 1 
boundaries, respectively. (BCI) 

♦ JTBC2(I,J) 


A variable specifying the type of time dependency for the 
boundary conditions on the y\ = 0 and yj = 1 boundaries. I 
runs from 1 to N eq} corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the r\ = 0 and y\ — 1 
boundaries, respectively. (BCI) 

KBCPER(I) 


Flags for spatially periodic boundary conditions: 0 for non- 
periodic, 1 for periodic. The subscript 1=1 or 2, corre- 
sponding to the £ and r\ directions, respectively. (BCI) 

* KBC1(J) 


Flags for type of boundaries in the £ direction. The subscript 
J = 1 or 2, corresponding to the £ = 0 and f = 1 boundaries, 
respectively. (BCI) 

♦ KBC2(J) 


Flags for type of boundaries in the rj direction. The subscript 
J = 1 or 2, corresponding to the = 0 and = 1 boundaries, 
respectively. (BCI) 

KT(I1,I2) 

k 

Effective thermal conductivity coefficient at time level n. This 
is a type REAL variable. (FLOW1) 
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♦ KIR 

K 

Dimensional reference thermal conductivity coefficient. This 
is a type REAL variable. (FLOW1) 

LA(1 1,12) 

). 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2/i/3.) This is a type REAL variable. 
(FLOW1) 

+ LR 

L r 

Dimensional reference length. This is a type REAL variable. 
(FLOWl) 

LRMAX(U.K) 


The grid indices corresponding to the location of the maxi- 
mum absolute value of the residual. The subscript I = 1 or 
2, corresponding to the Q and >] directions, respectively, J = 1 
to N eq , corresponding to the N eq coupled governing equations, 
and K = 1 or 2, corresponding to the residual computed 
without and with the artificial viscosity terms. (TIME1) 

LWAKE1 


Grid point index in the q direction used as the origin for 
computing length scales for free turbulent flows. (TLRB1) 

LWAKE2 


Grid point index in the rj direction used as the origin for 
computing length scales for free turbulent flows. (TLRB1) 

* MAC HR 

M, 

Reference Mach number, u r l(y r RT r ) li2 . This is a type REAL 
variable. (FLOWl) 

METT(IV.I) 

Z, or t], 

The derivative of the computational coordinate in the ADI 


sweep direction with respect to untransformed time t. I is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized'' direction (i.e., the non-sweep 
direction in which the "13 LK" routines are vectorized), and 
runs from 2 to N v — 1. This is a type REAL variable. 
(METRIC 1) 

METX(IV.I) £ x or rj x The derivative of the computational coordinate in the ADI 

sweep direction with respect to the Cartesian coordinate x. I 
is the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non- sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a type REAL 
variable. (METRIC I) 

MET Y( IV, I) £ or The derivative of the computational coordinate in the ADI 

sweep direction with respect to the Cartesian coordinate y or 
cylindrical coordinate r. I is the grid index in the sweep di- 
rection, running from 1 to N. IV is the grid index in the 
"vectorized" direction (i.e., the non-sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. This is a type REAL variable. (METRIC 1) 

MU(I1,I2) \x Effective viscosity coefficient at time level n. This is a type 

REAL variable. (FLOVV1) 

* MLR fi r Dimensional reference viscosity coefficient. This is a type 

REAL variable. (FLOW1) 

MLT(I1,I2) \i t Turbulent viscosity coefficient at time level n. This is a type 

REAL variable. (FLOW1) 
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NAMAX 

NBC 

NC 

♦ NDTCYC 

NEN 

NET 


A PARAMETER equal to the maximum number of time 
steps allowed in the moving average convergence test (the 
IC I EST = 2 option). (PARAMS1) 

A PARAMLIER equal to the number of boundary condi- 
tions per equation. (PARAMS1) 

Array index associated with the continuity equation 
(NL'.Ml) 

Number of time steps per cycle used in the time step cycling 
procedure. (TIME1) 

Array index associated with the energy equation. (NUM1) 

Array index associated with the dependent variable E T . 

(NUM1) 


NEQ 
NEQP 
+ NGEOM 

+ NCR ID 

* MUST 

* MI MAX 

NIN 

* NITAVG 
NMAXP 

* NOUT 

* N PLOT 

* NPLOTX 
NPRT1 
NPRT2 


The number of coupled governing equations actually being 
solved. (NUM1) 

A PARAME TER equal to the maximum number of coupled 
equations that can be solved. (PARAMS1) 

1'lag used to specify type of computational coordinates; 1 for 
Cartesian (xj;) coordinates, 2 for polar (U,0') coordinates, and 
10 to read the coordinates from unit NGRID. (GMTRY1) 

Unit number for reading grid file. (IOl) 

Unit number for writing convergence history file. (IOl) 

Maximum number of time levels allowed in the printout of 
the convergence history file (not counting the first two, which 
are always printed.) (IOl) 

Unit number for reading namelist input. (IOl) 

Number of time steps used in the moving average convergence 
test. (TIME1) 


A PARAMETER equal to the maximum of NIP and N2P 
(PAR AMS I) 


Unit number for writing standard output. (IOl) 

Unit number for writing CONTOUR or PLOT3D Q plot file. 

( 101 ) 


Unit number for writing PLOT3D XYZ plot file. (IOl) 


Total number of indices for printout in the c, direction. (IOl) 
Total number of indices for printout in the direction. (IOl) 


NPTS 


A' fhe number of grid points in the sweep direction. (NUM1) 
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NPT1 


NPT2 

NR 

♦ NRQIN 

♦ NRQOUT 
NRU 

NRV 

NRW 

♦ NRXIN 

♦ NRXOUT 

♦ NSCR1 

♦ NTBC 

♦ NTBCA(I) 

♦ NTIME(I) 
NTOTP 
NTP 

♦ NTSEQ 
NTSEQP 


(V, or iV, + 1 The number of grid points in the £ direction used in com- 
puting coefficients: A', for non-periodic boundary conditions; 
;V, + 1 for spatially periodic boundary conditions. (NUM1) 

,V 2 or ,V 2 + * l hc number of grid points in the direction used in com- 

puting coefficients: A 2 for non-periodic boundary' conditions; 
;V 2 + 1 for spatially periodic boundary 1 conditions. (NUM 1) 

Array index associated with the dependent variable p. 
(NUM 1) 

Unit number for reading restart flow field. (RSTRT1) 

Unit number for writing restart flow field. (RSTRT1) 

Array index associated with the dependent variable pu. 
(NUM 1) 

Array index associated with the dependent variable pv. 
(NUM1) 


Array index associated with the dependent variable pw. 

(NUM1) 

Unit number for reading restart computational mesh. 

(RSTRT1) 

Unit number for writing restart computational mesh. 

(RSTRT1) 

Unit number for scratch file in subroutine PLO P. (101) 

Number of values in the tables of GTBC1 and/or G I BC2 vs. 
NTBCA for general unsteady boundary conditions. (BC1) 

Time levels at which GTBC1 and/or GTBC2 arc specified for 
general unsteady boundary' conditions. The subscript I = 1 to 
NTBC, corresponding to the NTBC values in the table. 
(BC1) 

Maximum number of time steps to march. I runs from 1 to 
NTSEQP, corresponding to the time step sequence number. 
(TIME1) 

A PARAMETER equal to the total storage required for a 
single two-dimensional array (i.e., NIP x N2P). 
(PARAMS1) 

A PARAMETER equal to the maximum number of entries 
in the table of time-dependent boundary condition values. 
(PARAMS1) 

The total number of time step sequences being used. 
(TIME1) 

A PARAMETER equal to the maximum number of time 
step sequences in the time step sequencing option. 
(PARAMS1) 
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NV 

A; 

The number of grid points in the "vectorized" direction (i.e., 
the non-sweep direction in which the "BI K" routines are 
vectorized), t herefore, NV = A 2 for the first sweep and .V, for 
the second sweep. (NUMI) 

NXM 


Array index associated with the x-momcntum equation. 
(NUMI) 

NYM 


Array index associated with the y or r-momentum equation. 
(NUMI) 

\Z\1 


Array index associated with the swirl momentum equation. 
(NUMI) 

* M 

A', 

The number of grid points in the Q direction. (NUMI) 

NIP 


A PARAMETER equal to the maximum number of grid 
points in the £ direction. ( PAR AMS 1) 

♦ N2 

A', 

The number of grid points in the i] direction. (NUM 1 ) 

N2P 


A PARAMETER equal to the maximum number of grid 
points in the y direction. (PARAMS1) 

P(1 1,12) 

P 

Static pressure at time level n. (FLOW I) 

PR 

Pr 

Dimensional reference static pressure, p r RTJg c . (FLOW1) 

+ PRLR 

Pr, t 

Reference laminar Prandtl number, r u jk , where 
c Pr = y r RI(y r - 1). (ELOW1) 

PRR 

Pr, 

Reference Prandtl number, ju r u?jk r T r . (ELOW1) 

♦ PRT 

Pr, 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURB1) 

♦ PO 

Po 

Initial static pressure. (IC1) 

RAX(I) 

1 or r 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. I is the grid index in the sweep direction, 
running from 1 to N. (METRIC!) 

+ RER 

Re, 

Reference Reynolds number, p r u r L r jfi r . (FLOWl) 

RESAVG(J.K) 

R., 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N tql corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

RESL2(J,K) 

r g 

The Aj norm of the residual for the previous time step. The 
subscript J = 1 to N , corresponding to the N eq coupled gov- 
erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIMEl) 

RESMAX(J,K) 

R m „ 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq} corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
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RFXTl 

Re, 

x tr 

REXT2 

Re, 

*tr 

RG 

R 

RGAS 

R 

RHO(Il,I2) 

P 

RHOL(Il,I2) 

P 

RHOR 

Pr 

RMAX 


RMIN 

Rmm 

S(IV,I,J) 

s 


SQ(I,J) 


T(1 1,12) 

T 

TAU(I1,I2) 

T 

THC(I) 

6 ]t d 2 

THE(I) 

®1> ^2> ^3 

THMAX 

6' ma , 

TIIMIN 

O'mm 


sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIMF1) 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from £ = 0, for 
flow predominantly in the £ direction with a leading edge at 
{ = 0. (TURBI) ' 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from r ] — 0, for 
flow predominantly in the r[ direction with a leading edge at 
>7 = 0. (TURBI) 

Dimensional gas constant. (FLOW1) 

Nondimensional gas constant. (FLOW1) 

Static density at time level n. (FLOW1) 

Static density at previous or intermediate time level. 
(FLOW1) 

Dimensional reference density. (FLOW1) 

Maximum r* coordinate for polar grid option. (GMTRY1) 

Minimum r 7 coordinate for polar grid option. (GMTRY1) 

Subvector of source terms at grid point I in the block 
tridiagonal system of equations. I is the grid index in the 
sweep direction, running from 1 to N . IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. The subscript J = 1 to N eq , corresponding to the N eq 
coupled governing equations. (NUMl) 

An array controlling the packing of grid points using the 
Roberts transformation. The subscript 1=1 or 2, corre- 
sponding to the £ and rj directions, respectively. SQ(I,1) 
specifies the location of packing, and SQ(I,2) specifies the 
amount of packing. (NUMl) 

Static temperature at time level n . (FLOW1) 

Current value of the time marching parameter. (TIME1) 

A two-element array specifying the time difference centering 
parameters used for the continuity equation. (NUMl) 

A three-element array specifying the time difference centering 
parameters used for the energy equation. (NUMl) 

Maximum O' coordinate in degrees for polar grid option. 
(GMTRY1) 

Minimum d' coordinate in degrees for polar grid option. 
(GMTRY1) 
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* 

THX(I) 

$1» $2> ^3 

A three -element array specifying the time difference centering 
parameters used for the x-momentum equation. (NUM1) 

+ 

THY(I) 

0„ o 2 , 

A three-element array specifying the time difference centering 
parameters used for they or r-momentum equation. (NUM1) 


THZ(I) 


A three-element array specifying the time difference centering 
parameters used for the swirl momentum equation. (NUM1) 

+ 

TITLE 


Title for printed output and CONTOUR plot file, up to 72 
characters long. This is a type CHARACTER variable. 
(TITLE 1) 


TL(I1,I2) 

T 

Static temperature at previous or intermediate time level. 
(FLOW1) 

* 

TR 

T, 

Dimensional reference temperature. (FLOW1) 


TO 

T 0 

Initial static temperature. (IC1) 


U(1 1,12) 

u 

Velocity in the Cartesian jc direction at time level n. 
(FLOW1) 


UL(1 1,12) 

u 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOW1) 

+ 

UR 

u r 

Dimensional reference velocity. (FLOW1) 

* 

uo 

U* 

Initial velocity in the Cartesian x direction. (IC1) 


V( 1 1 , 1 2) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at time level n. (FLOW1) 


VL(I1,I2) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at previous or intermediate time level. (FLOVV1) 


VORT(Il,I2) 

l«l 

Total vorticity magnitude. (TURB1) 

* 

VO 

v o 

Initial velocity in the Cartesian y direction or cylindrical r di- 
rection. (1C1) 


\V(I1,I2) 

w 

Swirl velocity at time level n . (FLOW1) 


WL(II,I2) 

w 

Swirl velocity at previous or intermediate time level. 
(FLOW1) 


WO 

*0 

Initial swirl velocity. (IC 1 ) 


X(1 1 ,12) 

X 

Cartesian x coordinate. (METRIC1) 


XIT(1 1 ,12) 

t, 

The derivative of the computational coordinate £ with respect 
to untransformed time t. (METRIC 1) 


XIX(1 1 ,12) 

t. 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC1) 
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\IY(1 1 ,12) £ y or £ r The denvative ot the computational coordinate £ with respect 

to the Cartesian coordinate y or cylindrical coordinate r. 




(METRIC I) 

XMAX 

X n{3x 

Maximum 

(GMTRY1) 

XXI IN 

^rmn 

Minimum 

(GMTRV1) 

Yfl 1 .12) 

y or r 

("artesian y 
(METRIC 1) 

YM AX 

) max 

Maximum 

(GMTRY1) 

YM IN 

y mm 

Minimum 1 
(GMIRYl) 


coordinate 

for 

("artesian 

grid 

option 

coordinate 

for 

Cartesian 

grid 

option 

coordinate 

or 

cylindrical 

r coordinate. 

coordinate 

for 

Cartesian 

grid 

option. 

coordinate 

for 

("artesian 

grid 

option. 


3.3 COMMON VARIABLES I IS I I I) SYMBOLICALLY 


In this section many of the PRO I I I S Fortran variables stored in common blocks are defined, listed 
symbolically. Note that this list docs not include those variables without symbolic representations, such 
as various Hags, or those whose meaning depends on other parameters, such as the boundary' condition 
values and sweep direction metrics. The variables marked with an asterisk arc input variables. More details 
on these may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given 
in parentheses at the end of each definition. Tor subscripted variables, the subscripts arc defined along with 
the variable, except for the subscripts II and 12, w hich are the indices / and j in the £ and 17 directions, re- 
spectively, and run from 1 to Ay and V 2 . 

I’nless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimcnsionali/ing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, K, 
1., M, or N are integer, and the remainder arc real.) 


Fortran 

Svmbol Variable 


Definition 


* 


A + 


A 


* 11 


B 


API I S 


A(IV,I,J,K) 


CB 


B(IV,IJ,K) 


Van Driest damping constant in the inner and outer regions 
of the Baldwin- 1 omax turbulence model. (Tl RBI) 

Subdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to V . IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "B1 K" routines are vectorized), and runs from 2 to 
N v — 1. The subscript .1 — 1 to N er corresponding to the N eq 
coupled governing equations, and K = 1 to N e t corresponding 
to the N eq dependent variables. (NU.M1) 

Constant used in the formula for the KlebanofF intennittency 
factor Fk* in the outer region of the Baldwin- 1 omax turbu- 
lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (Tl RBI) 

Diagonal submatrix of coefficients at grid point I in the block 
tridiagonal coefficient matrix. I is the grid index in the sweep 
direction, running from 1 to V. IV is the grid index in the 
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"vectorized" direction (i.e., the non-sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
N v - 1. The subscript I = 1 to N er corresponding to the N eq 
coupled governing equations, and K — 1 to A r , corresponding 
to the N eq dependent variables. (NL’Ml) 



CP(1 1,12) 

Specific heat at constant pressure at time level n. (FLOWl) 


CV(I1,I2) 

Specific heat at constant volume at time level n. (FLOWl) 

* c 

CP 

CCP 

Constant used in the outer region of the Baldwin- Lomax tur- 
bulence model. (TURB1) 

C ‘r' * C V 

CCP1-CCP4 

Constants in empirical formula for specific heat as a function 
of temperature. (FLOWl) 

Q 1 " ^*2 

CK 1-2 

Constants in empirical formula for thermal conductivity coef- 
ficient as a function of temperature. 

* Caleb 

CKLEB 

Constant used in the formula for the Klebanoff intermittency 
factor F Kleb in the outer region of the Baldwin- Lomax turbu- 
lence model. (TURB1) 

C - C 

CM U 1-2 

Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. (FLOWl) 

* c 

^wk 

CWK 

Constant used in the formula for F wake in the outer region of 
the Baldwin- Lomax turbulence model. (TURB1) 

c 

C(IV,1,J,K) 

Superdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
;V„ — 1. ITe subscript J = 1 to N eq , corresponding to the N eq 
coupled governing equations, and K = 1 to V , corresponding 
to the N eq dependent variables. (NUM1) 

e r 

ER 

Dimensional reference energy, p r u f. (FLOWl) 

£r 

ET( 11,12) 

Total energy at time level n. (FLOWl) 

C'T 

ETL(I1,I2) 

Total energy at previous or intermediate time level. (FLOWl) 

Zc 

GC 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lb m -ft/lb f -sec 2 , or 1.0 kg-m/N-sec 2 . (FLOWl) 

K 

HS'FAG 

Stagnation enthalpy used with constant stagnation enthalpy 
option. (FLOWl) 

* *r. 

HSTAGR 

Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. (FLOWl) 

i 

11 

Grid point index in the £ direction. (NUM1) 

K 

IV 

Grid point index in the "vectorized" direction (i.e., the non- 
sw r eep direction in which the "BLK" routines are vectorized). 
Therefore, IV = j for the first sweep and i for the second 
sweep. (NUM1) 
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j 

12 

Grid point index in the y\ direction. (NU\I 1) 



J 1(11,12) 

Inverse Jacobian of the non-orthogonal grid transformation. 
(For axisymmetric flow, in the COLE routines JI = rJ l , the 
product of the local radius and the inverse Jacobian.) This is 
a type REAL variable. (METRIC1) 


k 

KT(I1,I2) 

Effective thermal conductivity coefficient at time level rt. This 
is a type REAL variable. (FLOW1) 

* 

k, 

KTR 

Dimensional reference thermal conductivity coefficient. This 
is a type REAL variable. (ELOW1) 

* 

K 

CCLAU 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. (TURB1) 

* 

Lr 

LR 

Dimensional reference length. This is a tvpe REAL variable. 
(ELOW1) 

* 


MAC HR 

Reference Mach number, u r l(y r RT r ) l!2 . This is a type REAL 
variable. (ELOWl) 


n 

IT 

Current time step number, or known time level. Time step 
number n updates the solution from time level n to n + 1 . 
(TIME1) 

* 

n 

CNA 

Exponent in the formula used to average the two outer region 
fj. t profiles that result when both boundaries in a coordinate 
direction are solid surfaces. (TURB1) 

+ 

n 

CNL 

Exponent in the Launder* Priddin modified mixing length 
formula for the inner region of the Baldwin- Lomax turbulence 
model. (TLRB1) 


N 

NPTS 

The number of grid points in the sweep direction. (NUM1) 


K 

NEQ 

The number of coupled governing equations actually being 
solved. (NUM1) 


a; 

NV 

The number of grid points in the 'vectorized'' direction (i.e., 
the non-sweep direction in which the "BLK" routines are 
vectorized). Therefore, NV = N 2 for the first sweep and for 
the second sweep. (NUM1) 

* 

A\ 

M 

t he number of grid points in the £ direction. (NUM1) 


A 7 . 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for non-periodic boundary' condi- 
tions.) (NUM1) 


A', + 1 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for spatially periodic boundary con- 
ditions.) (NUM1) 

* 

A' 2 

N2 

The number of grid points in the rj direction. (NUM1) 


a 2 

NPT2 

ITie number of grid points in the >/ direction used in com- 
puting coefficients (only for non-periodic boundary condi- 
tions.) (NUM1) 

PROTEUS 2-D Programmer's Manual 

Variables Listed Symbolically 35 


A 2 + 1 

NPT2 

1 he number of grid points in the j? direction used in com- 
puting coefficients (only for spatially periodic boundary con- 
ditions.) (NLM1) 

p 

P( 11,12) 

Static pressure at time level n. (LLOWl) 

Pr 

PR 

Dimensional reference static pressure, p r RT r jg c . (II OWL) 

* /V, 

PO 

Initial static pressure. (ICl) 

dplaf-r 

DPDIT(I) 

The derivative of p with respect to /; r , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to \\ (PLOW I) 

Ppjdp 

DPDRHO(l) 

The derivative of p with respect to p } stored as a one- 
dimensional array in the sweep direction. The subscript 1 
therefore runs from 1 to A\ (LLOWl) 

dpjd(pu) 

DPDRl(I) 

1 he derivative of p with respect to pu , stored as a one- 
dimensional array in the sweep direction. 1 he subscript I 
therefore runs from 1 to ;V. (LLOWl) 

dpld(pv) 

DPDRV(I) 

I he derivative ot p with respect to pv, stored as a one- 
dimensional aiTay in the sweep direction. The subscript I 
therefore runs from 1 to A. (LI.OWl) 

dpld(pw) 

DPDRWfl) 

I he derivative of p with respect to p\v, stored as a one- 
dimensional array in the sweep direction. I he subscript 1 
therefore runs from 1 to N. (LLOWl) 

* I\ 

PR LR 

Reference laminar Prandtl number, c p jk , where 
c Pr = y,RI(y, - 1). (LLOWl) 

Pr, 

PRR 

Reference Prandtl number, p r u?lk r T r . (LLOWl) 

* Pr, 

PRT 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURK 1) 


Cl IGAVG(I) 

Maximum change in absolute value of the dependent vari- 
ables, averaged over the last MTAVG time steps. 4 The sub- 
script I — 1 to corresponding to the N dependent 

variables. (TIME1) 

AQ,„ 

CHGMAX(I,J) 

Maximum change in absolute value of the dependent variables 
over a single time step. 4 The subscript 1=1 to N , corre- 
sponding to the N eq dependent variables, and J = 1 to 
Nil AVG, the number of time steps used in the moving av- 
erage option for determining convergence. (TIM L t ) 

r 

Y(1 1 ,12) 

(Cylindrical r coordinate. (MLTRIC1) 

r 

RAX(I) 

Local radius r for axisymmetric flow’. I is the grid index in the 
sweep direction, running from 1 to N. (METRIC 1) 


4 I or the energy equation, the change in K r is div ided by £’^ = p,R TJ{y, - 1) + u r 2 /2, so dial it is the same order 
of magnitude as the other conservation variables. 
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+ 

r'ma. 

RMAX 

Maximum f coordinate coordinate for polar grid option. 
(GMTRY1) 

* 

r'nnn 

R.MIN 

Minimum r* coordinate coordinate for polar grid option. 
(GMTRY1) 


K, s 

RESAVG(J.K) 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq , corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 


r g 

RESL2(J,K) 

The Zo norm of the residual for the previous time step. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIME1) 


R™, 

RESMAX(J.K) 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq , corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

* 

R 

RG 

Dimensional gas constant. (FLOW1) 


R 

RGAS 

Nondimensional gas constant. (FLOW I) 

+ 

Re, 

RER 

Reference Reynolds number, f> r u r L r lpL r . (FLOW1) 

* 

Re x 

x tr 

REXT1 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from £ = 0, for 
flow predominantly in the £ direction with a leading edge at 
£ = 0. (TURB1) 

* 

Re x 

x tr 

REXT2 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from yj = 0, for 
flow predominantly in the y\ direction with a leading edge at 
>7 = 0. (TURB1) 


S 

S(IV,I,J) 

Subvector of source terms at grid point 1 in the block 
tridiagonal system of equations. I is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the 'Vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. The subscript J = 1 to N eq1 corresponding to the N eq 
coupled governing equations. (NUM1) 

* 

At 

DT(I) 

The time step size, when specified directly as input. I is the 
time step sequence number, and runs from 1 to NTSEQ. 
(TIME1) 


T 

T(1 1,12) 

Static temperature at time level n. (FLOW1) 


T 

TL(I1,I2) 

Static temperature at previous or intermediate time level. 
(FLOW1) 
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dTjdEr 

DTDFT(I) 

The derivative of T with respect to £ r , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) 


dTjdp 

DTDRHO(l) 

ITe derivative of T with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) 


dTjd(pu) 

DTDRU(I) 

The derivative of T with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOWl) 


dTld(pv) 

DTDRV(I) 

The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


dT!d{pw) 

DTDRW(I) 

The derivative of T with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript 1 
therefore runs from 1 to N. (FLOW1) 

4 

T, 

TR 

Dimensional reference temperature. (FLOW1) 

4 

To 

TO 

Initial static temperature. (IC I ) 


u 

U(I t ,12) 

Velocity in the Cartesian x direction at time level n. 
(FLOWl) 


u 

UL(1 1,12) 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOWl) 

4 

U r 

UR 

Dimensional reference velocity. (FLOWl) 

4 

“e 

uo 

Initial velocity in the Cartesian x direction. (IC 1 ) 


V 

V(1 1 ,12) 

Velocity in the Cartesian y direction or cylindrical r direction 
at time level n. (FLOWl) 


V 

VL(1 1 ,12) 

Velocity in the Cartesian y direction or cylindrical r direction 
at previous or intermediate time level. (FLOWl) 

4 

v 0 

VO 

Initial velocity in the Cartesian y direction or cylindrical r di- 
rection. (IC 1 ) 


w 

W(I1,I2) 

Swirl velocity at time level n. (FLOWl) 


w 

WL(I1,12) 

Sw r irl velocity at previous or intermediate time level. 
(FLOWl) 

4 


WO 

Initial swirl velocity. (IC 1 ) 


X 

X(1 1,12) 

Cartesian x coordinate. (METRIC 1) 

4 


XMAX 

Maximum x coordinate for Cartesian grid option. 
(GMTRY1) 

4 

x min 

XMIN 

Minimum x coordinate for Cartesian grid option. 
(GMTRY1) 


y 

Y(1 1 ,12) 

Cartesian y coordinate. (METRIC 1) 
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y max 

YMAX 

Maximum y coordinate for Cartesian grid option. 
(GMTRY1) 

y min 

YMIN 

Minimum y coordinate for Cartesian grid option. 
(GMTRY1) 

a 

ALPHA 

Difference centering parameter for ffrst derivatives in the ADI 
sweep direction. ( N U M 1 ) 

«i 

ALPHA 1 

Difference centering parameter for £, direction first derivatives. 
ALPHA 1 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. (NL’Ml) 

a 2 

ALPHA2 

Difference centering parameter for rj direction first derivatives. 
ALPHA2 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. (NUM1) 

£ 

EPS(I) 

Convergence level to be reached. The subscript I =1 to N eq , 
corresponding to the N eq dependent variables. ( I IML1) 

cf 

CAVS2E(1) 

Second-order explicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to N tq , corresponding 
to the N tq coupled governing equations. (NUM1) 


CAVS4E(I) 

Fourth-order explicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to A,,, corresponding 
to the .\' tq coupled governing equations. (NUM1) 


CAVS2I(I) 

Second-order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to corresponding 

to the N eq coupled governing equations. (NLM 1) 

n r 

ETA Y(1 1,12) 

The derivative of the computational coordinate rj with respect 
to the cylindrical coordinate r. (METRIC 1) 

Vr 

METY(IV.I) 

The derivative of the computational coordinate y] with respect 
to the cylindrical coordinate r (second ADI sweep only.) I is 
the grid index in the sw r eep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to A, — 1. This is a type REAL 
variable. (METRIC 1) 

*h 

ETAT(I1,I2) 

The derivative of the computational coordinate t\ with respect 
to untransformed time t. (METRIC 1) 


METT(IV,I) 

The derivative of the computational coordinate rj with respect 
to untransformed time t (second ADI sweep only.) I is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to A',-1. This is a type REAL variable. 
(METRIC 1) 

n* 

ETAX(I1,I2) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate x. (METRIC 1) 
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1* 

METX(IV.I) 

The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate x (second ADI sweep only.) I is 
the grid index in the sweep direction, running from 1 to ;V. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v - 1. This is a type REAL 
variable . ( M ET R I C 1 ) 

% 

ETA Y( 1 1,12) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate y. (METRIC 1) 

% 

METY(IV.I) 

The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate y (second ADI sweep only.) I is 
the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a type REAL 
variable. (METRIC 1) 

Ar, 

DEL 

Computational grid spacing in the r\ direction (second ADI 
sweep only.) (NUM1) 

Ari 

DETA 

Computational grid spacing in the rj direction. (NUM1) 

♦ K 

CVK 

Von Karman mixing length constant used in the inner region 
of the Baldwin- Lomax and Spalding- Klein stein turbulence 
models. (TURB1) 

* «2 

CAVS2E(I) 

User-specified constant in nonlinear coefficient artificial 
viscosity model. The subscript I = 1 to N eq , corresponding to 
the i\ eq coupled governing equations. (NUM1) 

* k 4 

CAVS4E(I) 

User- specified constant in nonlinear coefficient artificial 
viscosity model. The subscript I = 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 

* Vr 

GAMR 

Reference ratio of specific heats, c p Jc . (FLOXVl) 

X 

LA(1 1,12) 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2^/3.) This is a type REAL variable. 
(FLOW1) 

M 

MU(I1,I2) 

Effective viscosity coefficient at time level n. This is a type 
REAL variable. (FLOW1) 

* M, 

MLR 

Dimensional reference viscosity coefficient. This is a type 
REAL variable. (FLOW1) 

n, 

MLT(I1,I2) 

Turbulent viscosity coefficient at time level n . This is a type 
REAL variable. (FLOW1) 

tr 

X I Y( 1 1 , 1 2) 

The derivative of the computational coordinate £ with respect 
to the cylindrical coordinate r. (METRIC 1) 

s. 

METY(IV.I) 

The derivative of the computational coordinate £ with respect 
to the cylindrical coordinate r (first ADI sweep only.) I is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized" direction (i.e., the non- sweep 
direction in wdiich the "BLK" routines are vectorized), and 
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runs from 2 to Y, — 1. This is a type RI'AL variable. 
(Ml I RICl) 


Sf 

XI I (11,12) 

1 he derivative of the computational coordinate £ with respect 
to untransformed time /. (MI: I RK 1) 

p 

b r 

\iriT(iv,i) 

The derivative of the computational coordinate i with respect 
to untransformed time / (first ADI sweep only.) I is the grid 
index in the sweep direction, running from 1 to A. IV is the 
grid index in the "vectorized" direction (i.e., the non -sweep 
direction in which the BFK" routines are vectorized), and 
runs from 2 to A ( 1. This is a type Rl AI variable. 

(Ml I RK 1 ) 

v 

S’ X 

X1XII1.I2) 

The derivative of the computational coordinate £ with respect 
to the ('artesian coordinate a. (Ml 1 RICl) 

P 

MlTX(IV.I) 

I he derivative of the computational coordinate c with respect 
to the (.'artesian coordinate a: (first ADI sweep only.) I is the 
grid index in the sweep direction, running from I to A . IV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the BI K" routines are vectorized), and 
runs from 2 to A; — 1. This is a type RTAL variable. 
(Ml I RICl) 

Zy 

XI Y(1 1,12) 

The derivative of the computational coordinate £ with respect 
to the ('artesian coordinate y. (Ml I RK' 1) 


METY(IV.I) 

The derivative of the computational coordinate £ with respect 
to the ('artesian coordinate y (first ADI sweep only.) I is the 
grid index in the sweep direction, running from 1 to A . IV is 
the grid index in the "vectorized direction (i.e., the non-sweep 
direction in which the BI K routines arc vectorized), and 
runs from 2 to A; - 1. This is a type Rf'AL variable. 
(MI-TRIO) 


Dll 

Computational grid spacing in the £ direction (first ADI 
sweep only . ) ( N l J M 1 ) 


DX1 

Computational grid spacing in the £ direction. (NCM1) 

P 

RI 10(1 1,12) 

Static density at time level n. (I LOWl) 

P 

RHOL(Il,I2) 

Static density at previous or intermediate time level. 
(FI OWT) 

* Pr 

RHOR 

Dimensional reference density. (fl OWl) 

T 

TAU(U,I2) 

Current value of the time marching parameter. (TIMFT) 

At 

DTAL*(11,I2) 

Computational time step size. (TIMF1) 

* O' 

max 

TIIMAX 

Maximum O' coordinate in degrees for polar grid option. 
(GMIRY1) 

* O' 

w mm 

THMIN 

Minimum O' coordinate in degrees for polar grid option. 


(GMTRY1) 
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* 0„ 

o 2 

THC(I) 

A two-element array specifying the time difference centering 
parameters used for the continuity equation. (NUM1) 

* 01, 

0 2 , #3 

THE(I) 

A three -element array specifying the time difference centering 
parameters used for the energy equation. (NUM1) 

* 0,. 

0J. 03 

THX(I) 

A three-element array specifying the time difference centering 
parameters used for the x-momentum equation. (NUM1) 

* 0., 

0 2 , 

THY(I) 

A three-element array specifying the time difference centering 
parameters used for the j/ or r-momentum equation. (NUM1) 

* 0,. 


THZ(I) 

A three-element array specifying the time difference centering 
parameters used for the swirl momentum equation. (NUM1) 

I« 

1 

VORT(Il,I2) 

Total vorticity magnitude. (TURB1) 

3.4 COMMON V ARIABLES LISTED BY COMMON BLOCK 


In this section all the PROTEUS Fortran variables stored in common blocks are defined, with each 
block listed separately. Within each block, the variables are listed alphabetically. Those marked with an 
asterisk are input variables. More details on these variables may be found in Section 3.1 of Volume 2. For 
subscripted variables, the subscripts are defined along with the variable, except for the subscripts II and 12, 
which are the indices / and k in the £ and directions, respectively, and run from 1 to N { and N 2 - 

Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, K, 
U, M, or N are integer, and the remainder are real.) 

Common Block BC1 

This common block contains variables dealing w r ith the application of boundary' conditions. 

Fortran 

Variable Symbol Definition 

+ FBC1(I2,I,J) Point-by-point values used for steady boundary conditions on 

the £ = 0 and £ = 1 surfaces. These are either set in the input, 
if a point -by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to N eq , corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the £ = 0 and f = 1 boundaries, respectively. 

* FBC2(1 1,1 J) Point-by-point values used for steady boundary' conditions on 

the yj = 0 and y\ — 1 surfaces. These are either set in the input, 
if a point -by -point distribution is being specified by the user, 
or by the program itself. I runs from 1 to corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the >/ = 0 

* GBC1(I,J) Values used for steady boundary conditions on the £ = 0 and 

£ = 1 boundaries, when specified for the entire surface. I runs 
from 1 to N eq , corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively. 
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* GBC2(I,J) 


* GTBC1(K,I,J) 


* GTBC2(K,I,J) 


IBCELM(U) 


* IBC1(I2,I,J) 


* IBC2(I1,I,J) 


IBVUP(I) 


Values used for steady boundary conditions on the = 0 and 
= 1 boundaries, when specified for the entire surface. I runs 
from 1 to N eq , corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the >7 — 0 and r\ = 1 boundaries, 
respectively. 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the £ = 0 and £ = 1 bound- 
aries. I runs from 1 to N er corresponding to the N eq 
conditions needed, and J = 1 or 2, corresponding to the f = 0 
and £=i boundaries, respectively. For general unsteady 
boundary conditions, K = 1 to NTBC, corresponding to the 
time levels in the array NTBCA, and GTBC1 specifies the 
boundary condition value directly. For time-periodic bound- 
ary conditions, K = 1 to 4, and GTBC1 specifies the four co- 
efficients in the equation used to determine the boundary 
condition value. 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the ^ = 0 and rj = 1 bound- 
aries. I runs from 1 to N eqy corresponding to the N eq 
conditions needed, and J = 1 or 2, corresponding to the rj = 0 
and r] = 1 boundaries, respectively. For general unsteady 
boundary conditions, K = 1 to NTBC, corresponding to the 
time levels in the array NTBCA, and GTBC2 specifies the 
boundary condition value directly. For time-periodic bound- 
ary conditions, K = 1 to 4, and GTBC2 specifies the four co- 
efficients in the equation used to determine the boundary 
condition value. 

Flags for elimination of off-diagonal sub-matrices resulting 
from gradient or extrapolation boundary conditions: 0 if 
elimination is not necessary, 1 if it is. The subscript I = 1 or 
2 corresponding to the sweep direction, and J = 1 or 2 corre- 
sponding to the lower or upper boundary in that direction. 


Flags specifying, point-by-point, the type of steady boundary 
conditions used on the \ — 0 and £ = 1 surfaces. These are 
either set in the input, if a point -by -point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N eqi corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. 


Flags specifying, point-by-point, the type of steady boundary 
conditions used on the y\ = 0 and r\ = 1 surfaces. 1 hese are 
either set in the input, if a point -by -point distribution is 
specified by the user, or by the program itself. 1 runs from 1 
to JV , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the rj = 0 and y\ = 1 boundaries, re- 
spectively. 

Flags for updating boundary values from the first sweep after 
the last sweep: 0 if updating is not necessary, 1 if it is. Up- 
dating is required when gradient or extrapolation boundary 
conditions are used. The subscript I = 1 or 2, corresponding 
to the lower or upper boundary in the first sweep direction. 
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ITDBC 


* JBCl(IJ) 


* JBC2(I ,) 


* JTBCl(IJ) 


+ JFBC2(I,J) 


KBCPIR(F) 


* KBC1(J) 


* KBC2(J) 


* NTBC 


* NTBCA(I) 


I lag for time-dependent boundary conditions; 0 if all bound- 
ary conditions are steady, 1 if any general unsteady boundary 
conditions are used, 2 il only steady and time- periodic 
boundary conditions are used. 

Flags specifying the type of steady boundary- conditions used 
on the £ = 0 and £ = 1 surfaces, when specified for the entire 
surface. I runs from 1 to A^, corresponding to the Y con- 
ditions needed, and J — 1 or 2, corresponding to the ; - 0 and 
£ = 1 boundaries, respectively. 

I lags specifying the type of steady boundary conditions used 
on the f] = 0 and >/ — 1 surfaces, when specified for the entire 
surface. I runs from 1 to \y ; , corresponding to the A con- 
ditions needed, and J = 1 or 2, corresponding to the rj =\) and 
?/ = 1 boundaries, respectively. 

A variable specifying the type of time dependency for the 
boundary conditions on the £ — 0 ami £ = 1 boundaries. I 
runs from 1 to A^, corresponding to the .Y conditions 
needed, and J = I or 2, corresponding to the f — 0 and £ = 1 
boundaries, respectively. 

A variable specifying the type of time dependency for the 
boundary conditions on the >/ — t) and >/ — 1 boundaries. 1 
runs horn 1 to A, i/( corresponding to the conditions 
needed, and J — 1 or 2, corresponding to the >/ - 0 and - 1 
bo u ndarie s , re spec t i ve l y . 

Flags for spatially periodic boundary conditions: 0 for non- 
periodic, 1 for periodic. The subscript 1—1 or 2, corre- 
sponding to the c, and j/ directions, respectively. 

Mags for type of boundaries in the £ direction. The subscript 
J — I or 2, corresponding to the £ — 0 and c — 1 boundaries, 
respectively. 

Flags for type of boundaries in the >/ direction. The subscript 
J = 1 or 2, corresponding to the rj = 0 and >/ — 1 boundaries, 
respectively. 

Number of values in the tables of GTBC1 and or GTBC2 vs. 
N I BCA tor general unsteady boundary conditions. 

Time levels at which GI BC1 and/or G 1 BC2 are specified for 
general unsteady boundary conditions. The subscript 1 — 1 to 
NTBC, corresponding to the NTBC values in the table. 


Common Block DUMMY I 


I his common block contains a variable used for temporary scratch storage in several subroutines. 


Fortran 

Variable Symbol Definition 

DL’MMY(I1,I2) Dummy array used for temporary storage in several subrou- 

tines. 
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Common Block FLOW1 


This common block contains variables dealing with the flow being computed, and with the basic prop- 
erties of the fluid. Several of the two-dimensional variables are equivalenced to corresponding one- 
dimensional variables. The names of the one-dimensional variables were created by adding a 1 to the 

name of the corresponding two-dimensional variable (e.g., ET and E IT P and P 1 , etc.) L sing the variables 
1BASE and ISTEP (see common block NL’Ml), a one-dimensional indexing scheme can thus be used to 
access a particular location in a two-dimensional array. This is useful, in the COEE routines for examp e, 
because it allows the same coding to be used for both sweeps. 


Fortran 

Variable 

Symbol 

Definition 

CCPl-4 

c v ■ <v 

Constants in empirical formula for specific heat as a function 
of temperature. 

CK1-2 

C*1 ■ O 2 

Constants in empirical formula for thermal conductivity coef- 
ficient as a function of temperature. 

CMU1-2 

C„\ * ^2 

Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. 

CP(1 1,12) 

C , 

Specific heat at constant pressure at time level n. 

CV(I1,I2) 

C, 

Specific heat at constant volume at time level n. 

DPDET(I) 

dpldE T 

The derivative of p with respect to E T , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

DPDRHO(I) 

dpi dp 

The derivative of p with respect to p t stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

DPDRU(I) 

dpld(pu) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N . 

DPDRV(l) 

dpld{pv) 

The derivative of p with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

DPDRW(I) 

dpld(pw) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

DTDET(I) 

dTfdEj- 

The derivative of T with respect to E T9 stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

DTDRHO(I) 

dTjdp 

The derivative of T w T ith respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript 1 
therefore runs from 1 to N. 

DTDRU(I) 

dTid(pu) 

The derivative of T with respect to pu , stored as a one- 
dimensional array in the sweep direction. 1 he subscript I 
therefore runs from 1 to V. 
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DTDRV(I) 

dTld(pv) 

I he derivative of 7 with respect to pv , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. 

DTDRW(I) 

dTjd(pw) 

Ihe derivative of T with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. 

hr 


Dimensional reference energy, p r u 2 . 

1 1 (11.12) 

Er 

Total energy at time level n. 

in I ( 11 , 12 ) 

E r 

Total energy at previous or intermediate time level. 

♦ GAMR 

y r 

Reference ratio of specific heats, c p jc v . 

GC 

gc 

Dimensional proportionality factor in Newton's second law 
either 32.174 lb m -ft/lb r sec 2 , or 1.0 kg-m/N-sec 2 . 

HSTAG 

h T 

Stagnation enthalpy used with constant stagnation enthalpy 
option. 

* HSTAG R 

hr, 

Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. 

* ICVARS 


Parameter specifying which variables are being supplied as 
initial conditions by subroutine INIT. 

♦ IFULER 


Mag for Euler calculation option; 0 for a full time-averaged 
Navier-Stokes calculation, 1 for an Euler calculation. 

IGAM 


Flag set by method used to select GAMR; 0 if GAMR is de- 
faulted (and hence c p and c v are functions of temperature), 1 
if GAMR is specified by user (and hence c_ and c are con- 
stants). 

♦ IHSTAG 


Flag for constant stagnation enthalpy option; 0 to solve the 
energy equation, 1 to eliminate the energy equation by as- 
suming constant stagnation enthalpy. 

♦ ILAMV 


Flag for computation of laminar viscosity and thermal 
conductivity; 0 for constant values, 1 for functions of local 
temperature. 

INEG 


Flag indicating non-positive values of pressure and/or tem- 
perature; 0 for no non-positive values, 1 for some. 

♦ ISWIRL 


Flag for swirl in axisymmetric flow; 0 for no swirl, 1 for swirl. 

♦ ITHIN(I) 


Flags for thin-layer option; 0 to include 2nd. derivative 
viscous terms, 1 to eliminate them. The subscript I = 1 or 2, 
corresponding to the and yj directions, respectively. 

KT(I1,I2) 

k 

Effective thermal conductivity coefficient at time level n . This 
is a type REAL variable. 

♦ KTR 

K 

Reference thermal conductivity coefficient. This is a type 
REAL variable. 
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LA(I1,I2) 

>1 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2^/3.) This is a type REAL variable. 

* 

LR 

L, 

Dimensional reference length. This is a type REAL variable. 

* 

MAC HR 

K 

Reference Mach number, u,j{y r R T r ) ] 2 . This is a type REAL 
variable. 


MU(I1,I2) 

M 

Effective viscosity coefficient at time level n . This is a type 
REAL variable. 

* 

MLR 

Mr 

Dimensional reference viscosity coefficient. This is a type 
REAL variable. 


MUT(I1,I2) 

Mr 

Turbulent viscosity coefficient at time level n. This is a type 
REAL variable. 


P(I1,I2) 

p 

Static pressure at time level n. 


PR 

Pr 

Dimensional reference static pressure, p,RT,lg c . 

* 

PRI R 

p \ 

Reference laminar Prandtl number, c Pr fj.,lk r1 where 

c p =y r RI(y r ~ 1). 


PRR 

Pr r 

Reference Prandtl number, p,uflk r T r 

+ 

RER 

Re, 

Reference Reynolds number, p r u^Jfi r . 

* 

RG 

R 

Dimensional gas constant. 


RGAS 

R 

Nondimensional gas constant. 


RHO(Il,I2) 

P 

Static density at time level n. 


RHOL(Il,I2) 

P 

Static density at previous or intermediate time level. 

+ 

RHOR 

Pr 

Dimensional reference density. 


T(1 1 ,12) 

T 

Static temperature at time level n. 


TL(I1,I2) 

T 

Static temperature at previous or intermediate time level. 

♦ 

TR 

T, 

Dimensional reference temperature. 


U(I1,I2) 

u 

Velocity in the Cartesian x direction at time level n. 


UL(1 1,12) 

u 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. 

4 

LR 


Dimensional reference velocity. 


V( 1 1 , 1 2) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at time level n. 


VL(1 1 ,12) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at previous or intermediate time level. 


W (11,12) 

w 

Swirl velocity at time level n . 
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WL(I1,I2) 

Common Block GMTRY1 


W 


Swirl velocity at previous or intermediate time level. 


Hus common block contains variables used to determine the geometric configuration being analyzed. 



Fortran 

Variable 

Symbol 

Definition 

* 

IAXI 


Flag for two-dimensional planar or axisymmetric flow; 0 for 
two-dimensional planar, 1 for axisymmetric. 


IGINT(I) 


Flags for grid mterpolation requirement; 0 if interpolation is 
not needed, 1 if interpolation is needed. The subscript I — 1 
to 3, corresponding to the <*, >7, and £ directions, respectively. 

* 

NGEOM 


Flag used to specify type of computational coordinates; 1 for 
Cartesian (x,y) coordinates, 2 for polar (^,0 # ) coordinates, and 
10 to read the coordinates from unit NGRID. 


RMAX 


Maximum r* coordinate for polar grid option. 

* 

RMIN 

f* 

mtn 

Minimum r* coordinate for polar grid option. 

+ 

Til MAX 

Q'max 

Maximum O' coordinate in degrees for polar grid option. 

+ 

IHM IN 

0' mtn 

Minimum O' coordinate in degrees for polar grid option. 

+ 

XMAX 

X max 

Maximum x coordinate for Cartesian grid option. 

* 

XMIN 

X nun 

Minimum x coordinate for Cartesian grid option. 

* 

Y.V1AX 

y max or r max 

Maximum y or r coordinate for Cartesian or cylindrical grid 
option. * 

* 

YMIN 

y min or r mm 

Minimum y or r coordinate for Cartesian or cylindrical grid 
option. 

Common Block IC1 




I his common block contains variables used m setting up the initial conditions in subroutine I NIT For 

flow fidd" hi ^ t SL Th m r? PR01EU ,?> these . variables specify the properties of an initial uniform 
/ d ‘ , f ,n ' P d h tV f ° r us ^- s r u PP ljcd versions of subroutine INIT, the user will need to change 
the contents of this common block and of namelist IC 8 


Fortran 

Variable 

Symbol 

Definition 

♦ P0 

Po 

Initial static pressure. 

♦ TO 

T 0 

Initial static temperature. 

♦ UO 

“a 

Initial velocity in the Cartesian x direction. 

♦ VO 

Vo 

Initial velocity in the Cartesian y direction or cylindrical r di 
rection. 

♦ WO 

w 0 

Initial swirl velocity. 
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Common Block IQ1 


This 


+ 


+ 


* 


* 


* 


* 


* 


+ 


* 


* 


* 


* 


+ 


* 


* 


* 


+ 


common block contains variables dealing with input output requirements. 


Fortran 

Variable Symbol 

IDEBUG(I) 

I PLOT 

IPLT 

IPLTA(I) 

IPRT 

IPRTA(l) 

IPRT1 

IPRT2 

IPRTIA(I) 


1PRT2A(I) 


I UN ITS 


IVOLT(I) 


NGRID 


MUST 

MIMAX 


SIN 

NOLT 

NPI.OT 


Definition 

A 20-element array of flags specifying various debug options. 

Flag controlling the creation of an auxiliary file, usually called 
a "plot file", used for later post-processing. 

Results are written into the plot file every IPLT time levels. 

Time levels at which results are written into the plot file The 
subscript 1=1 to 101, the maximum number of time levels 
that may be written. 

Results are printed every' IPR1 time levels. 

Time levels at which results are printed. The subscnpt I =1 
to 101, the maximum number of time levels that may be 
printed. 

Results are printed at every IPRTl'th mesh point in the £ 
direction. 

Results are printed at every IPRT2'th mesh point in the rj 
direction. 

I indices at which results are printed. The subscript 1=1 to 
a maximum of Nl, the number of grid points in the f direc- 
tion. 

„ indices at which results are printed. The subscnpt I =1 to 
a maximum of N2, the number of grid points in the rj direc- 

lion. 

Flag for type of units used to specify reference conditions; 
0 for Fnglish units, 1 for SI units. 

A 50-element array specifying which variables are to be 
printed. 

Unit number for reading grid file. 

Unit number for writing convergence history file. 

Maximum number of time levels allowed in the printout of 
the convergence history file (not counting the first two, which 
arc always printed.) 

Unit number for reading namelist input. 


Unit number for writing standard output. 

Unit number for writing CONTOUR or PLOT 3D Q plot file. 
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MM () I X 


M'RT 1 


M'R 1 


l 'nit number for writing PLOT 3 D XYZ plot file. 

1 otal number of indices for printout in the £ direction. 
Total number of indices tor printout in the >7 direction. 
I nit number for scratch file in subroutine PLOT. 


< «nrm„ •• Ml I RK 1 


trill trail 
tins comntoi 


- s oimnon (Mock contains the metric coefficients and inverse Jacobian describing the nonortWonal 
1,1 P ,us thc (.artesian coordinates of each grid point. The two-dimensional variables in 

nnun block are cquivalenced to corresponding one -dimensional vanablcs. This is done for the same 
■ tiu. m fne same manner as described previously for several variables in common block El OWL 


! on rail 
\ anable 

Symbol 

Definition 

I I A 1(11.12) 

>L 

I he derivative of the computational coordinate 17 with respect 
to untransformed time t. 

11 AX(1 1,12) 


I he derivative of the computational coordinate >7 with respect 
to the Cartesian coordinate x. 

11 AY (11.12) 

} ly ° f *1, 

1 he derivative of the computational coordinate >7 with respect 
to the Cartesian coordinate y or cylindrical coordinate r. 

J I ( 1 1,12) 

J 1 or rJ 1 

Normally the inverse Jacobian of the non-orthogonal grid 
transformation. Lor the COUP routines in axisymmetric 
flow, it is temporarily redefined as the product of the local 
radius and the inverse Jacobian. This is a type REAL vari- 
able. 

Ml I l(IV.I) 

4 , or 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to untransformed time t. 1 is the 
grid index in the sweep direction, running from 1 to ,V. IV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the "BIX" routines are vectorized), and 
runs from 2 to N, - 1. This is a type REAL variable. 

Mi;r.X(!v,i) 

i, or 17, 

1 he derivative of the computational coordinate in the ADI 
sweep direction with respect to the Cartesian coordinate x. I 
is the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the BLK routines are 
vectorized), and runs from 2 to A) — 1. This is a type REAL 
variable. 

METY(IV,I) 

Z y or n y 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to the Cartesian coordinate y or 
cylindrical coordinate r. I is the grid index in the sweep di- 
rection, running from 1 to N. IV is the grid index in the 
vectorized direction (i.e., the non-sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
A'. - L This is a type REAL variable. 

RAX(I) 

1 or r 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. I is the grid index in the sweep direction, 
running from 1 to A'. 
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X(1 1,12) 

X 

Cartesian * coordinate. 

XIT(I1,I2) 


The derivative of the computational coordinate ^ w ith respect 
to untransformed time t. 

X IX(1 1,12) 

L 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. 

XI Y(1 1,12) 

or 

The derivative of the computational coordinate * with respect 
to the Cartesian coordinate y or cylindrical coordinate r. 

Y( 11,12) 

y or r 

Cartesian y coordinate or cylindrical r coordinate. 


Common Block XL Ml 

This common block contains variables dealing with various aspects of the numerical method used to 
solve the equations. 


Fortran 

Variable Symbol 

A(IV,I,J,X) a 


ALPHA « 

* ALPHA 1 a, 

* ALPHA2 a 2 

B(IV,I,J,K) B 


C(IV,1,J,K) C 


Definition 


Subdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BI X" routines are vectorized), and runs from 2 to 
j\\ - 1. The subscript J = 1 to A',,, corresponding to the N, q 
coupled governing equations, and K = 1 to N tq , corresponding 
to the S rg dependent variables. 

Difference centering parameter for first derivatives in the ADI 
sweep direction. 

Difference centering parameter for £ direction first derivatives. 
ALPHA 1 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. 

Difference centering parameter for >/ direction first derivatives. 
ALPIIA2 = 0.0, 0.5, or 1.0 corresponding to forward, central, 
and backward differences, respectively. 

Diagonal submatrix of coefficients at grid point I in the block 
tridiagonal coefficient matrix. I is the grid index in the sweep 
direction, running from 1 to A. IV is the grid index in the 
"vectorized" direction (i.e., the non-sweep direction in which 
the "BIX" routines are vectorized), and runs from 2 to 
jV„ — 1 . The subscript J = 1 to N eq , corresponding to the N eq 
coupled governing equations, and X = 1 to N eq , corresponding 
to the N eq dependent variables. 

Superdiagonal submatrix of coefficients at grid point I in the 
block tridiagonal coefficient matrix. I is the grid index in the 
sweep direction, running from 1 to A'. IV is the grid index m 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BIX" routines are vectorized), and runs from 2 to 
A; - 1. The subscript J = 1 to N eqt corresponding to the N tq 
coupled governing equations, and X = 1 to N eq , corresponding 
to the N eq dependent variables. 
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* CAVS2E(I) 

ejp or k 2 

Second-order explicit artificial viscosity coefficient in constant 
coefficient model, or user- specified constant in nonlinear co- 
efficient model. The subscript I = l to N eq , corresponding to 
the N eq coupled governing equations. 

* CAVS2I(I) 


Second-order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to N eq , corresponding 
to the N eq coupled governing equations. 

♦ CAVS4E(I) 

or * 4 

fourth-order explicit artificial viscosity coefficient in constant 
coefficient model, or user-specified constant in nonlinear co- 
efficient model. The subscript I = 1 to N eqt corresponding to 
the \ r eq coupled governing equations. 

DEL A£ or Ayj 

Computational grid spacing in the ADI sweep direction. 

DETA 

A y] 

Computational grid spacing in the y\ direction. 

DXI 


Computational grid spacing in the f direction. 

* IAV2E 


Flag for second-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. 

* IAV2I 


Flag for second-order implicit artificial viscosity; 0 for none, 
1 for constant coefficient model. 

♦ IAV4E 


Flag for fourth-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. 

IBASE 


Base index used with ISTEP to compute one-dimensional 
index for two-dimensional array. Then, for example, for any 
sweep U(1 1 , 12) = UI(IBASE + ISTEP*(I - 1)) where I is the 
grid index in the sweep direction. 

* IPACK(I) 


Flags for grid packing option; 0 for no packing, 1 to pack 
points as specified by the input array SQ. The subscript 
1=1 or 2, corresponding to the £ and yj directions, respec- 
tively. 

ISTEP 


Multiplication factor used with IBASE to compute one- 
dimensional index for two-dimensional array. 

ISWEEP 


Flag specifying ADI sweep direction; 1 for { direction, 2 for 
>7 direction. 

IV 

K 

Grid point index in the "vectorized" direction (i.e., the non- 
sweep direction in which the "BLK" routines are vectorized). 
Therefore, IV =y for the first sweep and / for the second 
sweep. 

II 

i 

Grid point index in the direction. 

12 

j 

Grid point index in the y\ direction. 

NC 


Array index associated with the continuity equation. 

NEN 


Array index associated with the energy equation. 

52 Variables Listed by Block 


PROTEUS 2-D Programmer's Reference 



NEQ 


The number of coupled governing equations actually being 
solved. 

NET 


Array index associated with the dependent variable E T . 

NPTS 

:V 

The number of grid points in the sweep direction. 

NPT1 

A', or A', + 1 

The number of grid points in the £ direction used in com- 
puting coefficients: Y, for non-periodic boundary' conditions; 
A', + 1 for spatially periodic boundary' conditions. 

NPT2 

A 2 or S' 2 + 1 

The number of grid points in the t] direction used in com- 
puting coefficients: N 2 for non-periodic boundary conditions; 
N 2 + 1 for spatially periodic boundary conditions. 

NR 


Array index associated with the dependent variable p. 

NRU 


Arrav index associated with the dependent variable pu. 

NRV 


Array index associated with the dependent variable pv. 

NRW 


Array index associated with the dependent variable pw. 

NV 

N. 

The number of grid points in the "vectorized" direction (i.e., 
the non-sweep direction in which the "BLK" routines are 
vectorized). Therefore, NV = N 2 for the first sweep and A, for 
the second sweep. 

NXM 


Array index associated with the x-momentum equation. 

NYM 


Array index associated with the y or r-momentum equation. 

NZM 


Array index associated with the swirl momentum equation. 

* N1 

JV. 

The number of grid points in the £ direction. 

♦ N2 

^2 

The number of grid points in the y direction. 

s(iv,u) 

s 

Subvector of source terms at grid point I in the block 
tridiagonal system of equations. I is the grid index m the 
sweep direction, running from 1 to N. IV is the gnd index m 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N t -\. The subscript J = 1 to N e<l , corresponding to the N eq 
coupled governing equations. 

♦ SQ(I,J) 


.An array controlling the packing of grid points using the 
Roberts transformation. The subscript 1=1 or 2, corre- 
sponding to the Z and r, directions, respectively. bQ(U) 
specifies the location of packing, and SQ(1,2) specifies the 
amount of packing. 

♦ THC(I) 

0 „ e 2 

A two-clement array specifying the time difference centering 
parameters used for the continuity equation. 

* THE(I) 

0„ e 2 , 0 3 

A three-element array specifying the time difference centering 
parameters used for the energy equation. 
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* TIIX(I) 

0„ e 2 , e 3 

A three -element array specifying the time difference centering 
parameters used for the x-momentum equation. 

♦ THY(I) 

0„ 0 2 , 0 3 

A three-element array specifying the time difference centering 
parameters used lor the y or r-momentum equation. 

* THZ(I) 

o„ 0 2 , 0 3 

A three-element array specifying the time difference centering 
parameters used for the swirl momentum equation. 

Common Block RSTRTI 



I his common block contains variables controlling the use of the restart option. 

Fortran 

Variable 

Symbol 

Definition 

* I REST 


Flag controlling the reading and writing of auxiliary files used 
for restarting the calculation in a separate run. 

* NRQIN 


Unit number for reading restart flow field. 

+ NRQOLT 


Unit number for writing restart flow field. 

* NRXIN 


Unit number for reading restart computational mesh. 

♦ NRXOUT 


Unit number for writing restart computational mesh. 

Common Block TIME1 



This common block contains variables dealing with time step selection and convergence determination, 
e two-dimensional array D I AU is equivalenced to a corresponding one-dimensional array DTAU1 as 
described previously for vanables in common blocks FLOW 1 and METRIC 1. 

Fortran 

Variable 

Symbol 

Definition 

* CFL(I) 


The ratio At/At c/ , where At is the actual time step used in the 
implicit calculation and At i: ^ is the allowable time step hased 
on the Courant-Friedrichs-Lewy (CFL) criterion for explicit 
methods. I is the time step sequence number, and runs from 
1 to NTSEQ. 

♦ CFLMAX 


.Maximum allowed value of the CFF number. 

♦ CFLMIN 


Minimum allowed value of the CFL number. 

CHGAVG(I) 


Maximum change in absolute value of the dependent vari- 
ables, averaged over the last NITAVG time steps. 5 The sub- 
script 1=1 to N tq , corresponding to the ,V dependent 
variables. 

CHGMAX(U) 


Maximum change in absolute value of the dependent variables 
over a single time step. 5 The subscript I = 1 to N eq , corre- 
sponding to the N eq dependent variables, and J = 1 to 


r^m^nin^^LT 3 ^’ Change in Et “ , divided by Et ' = P' RT 'H?r - 1) + “r/2, so that it is the same order 
of magnitude as the other conservation variables. 
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* 


■p 


* 


* 


* 


+ 


* 


+ 


* 


* 


* 


* 


* 




NITAVG, the number of time steps used in the moving av- 
erage option for determining convergence. 

CIIGl 


Minimum change, in absolute value, that is allowed in an\ 
dependent variable before increasing the time step. 5 

CHG2 


Maximum change, in absolute value, that is allowed in any 
dependent variable before decreasing the time step. 3 

1)1(1) 

At 

lhe time step size, when specified directly as input. I is the 
time step sequence number, and runs from 1 to N 1 ShQ. 

D1AL(I 1,12) 

At 

Computational time step si/.e. 

Dll 1 


Factor by which the time step is multiplied if the solution 
changes too slowly. 

DU 2 


Factor by which the time step is divided if the sob i! nut 
changes too quickly. 

D I MAX 


Maximum value that At is allowed to reach, or the maximum 
At used in the time step cycling procedure. 

DIM IN 


Minimum value that At is allowed to reach, or the minimum 
At used in the time step cycling procedure. 

IPS(I) 

e 

Convergence level to be reached. I he subscript l 1 to \ 

corresponding to the dependent variables. 

ICIIHCK 


Results are checked for convergence every IC11FCK th time 
level. 

1CONV 


Convergence flag; 0 if not converged, 1 if converged. 

icnsr 


Flag for convergence criteria to be used. 

IDTAU 


Flag for time step selection method. 

ID I MOD 


The time step size is modified every ID 1 MOD'th time step. 

II 

n 

Current time step number, or known time level, l ime step 
number n updates the solution from time level n to n + 1. 

ITBLG 


The time time step number, or known time level n , at the 
beginning of a run. For a non-restart case, ITBFG = 1. 

hind 


The final time step number. 

iisl;q 


Current time step sequence number. 

I RMAX(U,K) 


The grid indices corresponding to the location of the maxi- 
mum absolute value of the residual. 1 he subscript I— 1 oi 
2, corresponding to the £ and rj directions, respectively, J = 1 
to ;V , corresponding to the N eq coupled governing equations, 
and K= 1 or 2, corresponding to the residual computed 
without and with the artificial viscosity terms. 

NDTCYC 


Number of time steps per cycle used in the time step cycling 
procedure. 
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* MTAVG 


Number of time steps used in the moving average convergence 
test. 

+ NTIME(I) 


Maximum number of time steps to march. I runs from 1 to 
NISFQP, corresponding to the time step sequence number. 

♦ NTSEQ 


The total number of time step sequences being used. 

RESAVG(J.K) 


A 

1 he average absolute value of the residual for the previous 
time step. The subscript J = 1 to corresponding to the 

N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. 

RHSL2(J,K) 

R, 

l 2 

The 1^ norm of the residual for the previous time step. The 
subscript J = I to A corresponding to the N eq coupled gov- 
erning equations, and K — 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 

RHSMAX(J,K) 


The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to N e<f1 corresponding to the 
N e<J coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. 

TAU(I1,I2) 

T 

Current value of the time marching parameter. 

Common Block TITLE 1 



This common block contains a descript 

ivc title for the case being run. 

Fortran 

Variable 

Symbol 

Definition 

* TITLE 


Title for printed output and CONTOUR plot file, up to 72 
characters long. This is a type CHARACTER variable. 

Common Block TURBI 



flow^ calculations 0 bl ° Ck conUlLns turb ulence model constants, plus flags and parameters used for turbulent 

Fortran 

Variable 

Symbol 

Definition 

♦ APLUS 

A ~ 

Van Driest damping constant in the inner and outer regions 
of the Baldwin- Lomax turbulence model. 

♦ CB 

B 

Constant used in the formula for the Klebanoff intermittency 
factor F Kleb in the outer region of the Baldwin-Lomax turbu- 
lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. 

♦ CCLAU 

K 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. 

♦ CCP 

C cp 

Constant used in the outer region of the Baldwin-Lomax tur- 
bulence model. 
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♦ CKLEB 

♦ CNA 

♦ CNL 

♦ CVK 

♦ CWK 

♦ ILDAMP 

♦ INNER 

♦ ITETA 

♦ ITURB 

+ ITXI 

♦ IWALLl(I) 

♦ I\VALL2(I) 

LWAKE1 

LWAKE2 

♦ PRT 

♦ REXT1 

♦ REXT2 


7 Constant used in the formula for the Klebanoff intermittency 

k "‘" factor F KUb in the outer region of the Baldwin -Lomax turbu- 

lence model. 

n Exponent in the formula used to average the two outer region 

n, profiles that result when both boundaries in a coordinate 
direction are solid surfaces. 

n Exponent in the Launder- Priddin modified mixing length 

formula for the inner region of the Baldwin- Lomax turbulence 
model. 

K Von Karman mixing length constant used in the inner region 

of the Baldwin-Lomax and Spalding- Rlcinstein turbulence 
models. 

C wk Constant used in the formula for F wake in the outer region of 

the Baldwin-Lomax turbulence model. 

Flag for the Launder- Priddin modified mixing length formula 
in the inner region of the Baldwin-Lomax turbulence model. 

Flag for type of inner region turbulence model. 

Flag for computing turbulent viscosity on constant >7 lines. 

Flag for turbulent flow option; 0 for laminar flow, 1 for tur- 
bulent flow using the Baldwin-Lomax algebraic turbulence 
model. 

Flag for computing turbulent viscosity on constant f lines. 

Flags indicating type of surfaces in the 7 direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 surfaces, respectively. 

Flags indicating type of surfaces in the yj direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the »j = 0 and tj = 1 surfaces, respectively. 

Grid point index in the £ direction used as the origin for 
computing length scales for free turbulent flows. 

Grid point index in the tj direction used as the origin for 
computing length scales for free turbulent flows. 

Pr, Turbulent Prandtl number, or, if non-positive, a flag indicat- 

ing the use of a variable turbulent Prandtl number. 

R e * Reynolds number at the beginning of the transition region, 

,r based on maximum total velocity and distance from ^ = 0, for 

flow predominantly in the £ direction with a leading edge at 

£ = 0 . 

Re, Reynolds number at the beginning of the transition region, 

f based on maximum total velocity and distance from rj = 0, for 

flow predominantly in the >] direction with a leading edge at 

rf = 0 . 
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V0RT(I1,I2) 


Total vorticity magnitude. 
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4.0 PROTEUS SUBPROGRAMS 


In this section, each subprogram in PROTEUS is described, first in summary, then in detail. The 
summary is simply a list of the subprograms with a brief description of the purpose of each one. The de- 
tailed description includes, for each subprogram, a list of the subprograms that reference it. and a list of the 
subprograms that it references. The Fortran variables that are input to and output from each subprogram 
are defined. And finally, details of the computations being done within each subprogram are presented. 

4.1 SUBPROGRAM SUMMARY 


The following table presents a brief description of the purpose of each subprogram 
code. 


in the PROTEUS 


PROTEUS Subprogram Summary 

Subprogram 

Purpose 

ADI 

Manage the block tridiagonal inversion. 

AVISO 

Compute constant coefficient artificial viscosity. 

AVISC2 

Compute nonlinear coefficient artificial viscosity. 

BCDENS 

Compute density boundary conditions. 

BCELIM 

Eliminate off-diagonal coefficient submatrices resulting from 
three-point boundary conditions. 

BCE 

Compute user-written boundary conditions. 

BCFLIN 

User-supplied routine for linearization of user-supplied boundary 
conditions. 

BCGEN 

Manage computation of boundary conditions. 

BCGRAD 

Compute gradients with respect to £ and rj. 

BCMET 

Compute various metric functions for normal gradient boundary 
conditions. 

BCPRES 

Compute pressure boundary conditions. 

BCQ 

Compute conservation variable boundary conditions. 

BCSET 

Set various boundary' condition parameters and flags. 

BCTEMP 

Compute temperature boundary conditions. 

BCUVEL 

Compute ^-velocity boundary conditions. 

BCVDIR 

Compute normal and tangential velocity boundary conditions. 

BCWEL 

Compute y or r- velocity boundary' conditions. 

BOWEL 

Compute swirl velocity boundary conditions. 

BLIN1 

Compute inner layer turbulent viscosity along constant £ lines. 

BLIN2 

Compute inner layer turbulent viscosity along constant rf lines. 

BLOCK DATA 

Set default values for input parameters, plus a few other parame- 
ters. 

BLKOUT 

Print coefficient blocks at specified indices in the £ and rj di- 
rections. 

BLK3 

Solve 3x3 block tridiagonal system of equations. 
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PRO IT: US Subprogram Summary 

Subprogram 

Purpose 

BI K3P 

Solve 3x3 periodic block tridiagonal system of equations. 

BLK4 

Solve 4x4 block tridiagonal system of equations. 

BEK4P 

Solve 4x4 periodic block tridiagonal system of equations. 

BI.K5 

Solve 5x5 block tridiagonal system of equations. 

BI K5P 

Solve 5x5 periodic block tridiagonal system of equations. 

BLOLT1 

Compute outer layer turbulent viscosity along constant £ lines. 

BI OUT2 

Compute outer layer turbulent viscosity along constant rj lines. 

BVUP 

Update first sweep boundary' values after second sweep. 

COEPC 

Compute coefficients and source terms for the continuity equation. 

COEPE 

Compute coefficients and source terms for the energy equation. 

COEI X 

Compute coefficients and source terms for the x-momentum 
equation. 

coui y 

Compute coefficients and source terms for the y or r-momentum 
equation. 

COEI Z 

Compute coefficients and source terms for the swirl momentum 
equation. 

CONV 

Test computed flow field for convergence. 

CUBIC 

Interpolation using Ferguson's parametric cubic. 

FQSTAT 

Use equation of state to compute pressure, temperature, and their 
derivatives with respect to the dependent variables. 

EXEC 

Manage solution of governing equations. 

FILTER 

Rearrange rows of the boundary condition coefficient submatrices 
and the source term subvector to eliminate any zeroes on the di- 
agonal. 

ETEMP 

Compute auxiliary variables that are functions of temperature. 

GEOM 

Manage computation of grid and metric parameters. 

I NIT 

Get user-defined initial flow field. 

I MIC 

Set up consistent initial conditions based on data from I NTT. 

INPUT 

Read and print input, perform various initializations. 

ISA MAX 

Find the first index corresponding to the largest absolute value of 
the elements of an vector. This is a Cray BLAS routine. 

ISAM IN 

Find the first index corresponding to the smallest absolute value 
of the elements of an vector. This is a Cray extension to the BLAS 
routines. 

MAIN 

Manage overall solution. 

ME I S 

Compute metrics of nonorthogonal grid transformation. 

OUTPUT 

Manage printing of output. 

PAR 

Manage packing and/or interpolation of grid points. 

PERIOD 

Define extra line of data for use in computing coefficients for spa- 
tially periodic boundary' conditions. 

PLOT 

Write files for post-processing by CONTOUR or PLOT3D plot- 
ting programs. 

PRTHST 

Print convergence history. 

PRTOUT 

Print output. 
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PRO TIT S Subprogram Summon' 

Subprogram 

Purpose 

RI SID 

Compute residuals and write convergence history file. 

REST 

Read and/or write restart file. 

ROB I S 

Pack points along a line using Roberts transformation. 

NAM M 

Compute the sum of the absolute values of the elements of a vec- 
tor. l his is a Cray BLAS routine. 

SGI FA 

Factor a matrix using Gaussian elimination. This is a Cray 
UNPACK routine. 

SGI SI 

Solve the matrix equation Ax = B or A T x = B using the factors 
computed by SGFPA. this is a Cray LIN PACK routine. 

SNR M2 

Compute the norm of a vector. T his is a Cray BI AS routine. 

TBC 

Set time-dependent boundary' condition values. 

I IMS I P 

Set computational time step. 

1TRBBL 

Manage computation of turbulence parameters using Baldwin- 
l.omax algebraic model. 

UPDATE 

Update flow variables after each ADI sweep. 

VORTEX 

Compute magnitude of total vorticity. 


4.2 SUBPROGRAM DETAILS 

1 he subprograms used in PROTEUS are described in detail in the remainder of this section. A few 
additional words are necessary about the input and output descriptions. The description of the input to 
each subprogram includes all Fortran variables actually used by the subprogram that are defined outside the 
subprogram. Variables defined and used inside the subprogram are not listed as input. In addition, vari- 
ables that are merely passed through to lower level routines are not listed. Variables marked with an asterisk 
are user-specified namelist input variables. 

Similarly, the output description includes only those variables computed inside the subprogram and used 
outside the subprogram. It does not include variables computed by lower level routines. In general, vari- 
ables defined inside the subprogram that are used by lower level routines are listed as output, even if they 
are not needed after control is returned to the calling program. 

Variables entering or leaving a subprogram through an argument list arc defined in detail. However, 
most of the Fortran variables listed in the input and output descriptions are contained in common blocks, 
and are defined in detail in Section 3.0. 1 or that reason, they are defined only briefly in this section. 
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Subroutine ADI 

Called by 

Calls 

Purpose 

EXEC 

BLKOL’T 

BI.K3 

BLK3P 

BLK4 

BLK4P 

BLK5 

BEK5P 

Manage the block tridiagonal inversion. 


Input 


+ IDEBIJG 
* 1PRT1A, IPRT2A 
ISWEEP 

IT 

KBCPER 


NEQ 

* NOUT 

NPRT1, NPRT2 

S 

Output 

None, 


Debug flags. 

Indices for printout in the £ and t] directions. 

Current ADI sweep number. 

Current time step number n . 

Hags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, I for periodic. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 

A A 

Computed solution subvector, AQ' or AQ\ 


Description 

For each ADI sweep, subroutine ADI calls the appropriate block solver. The choice is determined by 
the number of equations being solved, and by the presence or absence of spatially periodic boundary con- 
ditions in the sweep direction. 

Remarks 

1. This subroutine generates the output for the IDEBUG(l), IDEBUG(5), and IDEBUG(6) options. 
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Subroutine AVISO 


Called by 

Calls 

Purpose 

F.XFC 

BI KOLT 

Compute constant coefficient artificial viscosity. 


Input 

A, B, C 

* CAVS2E, CAVS4E, CAVS 2 I 
DIAL 1 

* IAV2E, IAV4E, IAV2I 

* IDF* BUG 

* I H ST AG 

* IPRT 1 A, IPRT2A 
ISWEEP 

* ISWIRL 
IT 

JI 

NC, NXM, NYM, NZM, NEN 

* NOUT 
NPRT1, NPRT2 
NPT1, NPT2 

NR, NRU, NRV, NRW, NET 
RIIO, L, V, W, ET 
S 


Coefficient submatrices A, B, and C without artificial viscosity. 
Artificial viscosity coefficients and c 7 . 

fime step At. 

Mags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £ and >7 directions. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

Inverse Jacobian of the nonorthogonal grid transformation, J V 

Array indices associated with the continuity, x-momentum, 
y-momentum (or /'■-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Unit number for standard output. 

Total number of indices for printout in the ^ and r\ directions. 

and N 2 for non-periodic boundary conditions, N x + 1 and 
N 2 + 1 for spatially periodic boundary' conditions in f and rj. 

Array indices associated with the dependent variables p, pu : pv, 
piv, and E r . 

Static density p, velocities u, v, and w, and total energy E T at time 
level n. 

Source term subvector S without artificial viscosity. 


Output 


A, B, C 
S 


Coefficient submatrices A, B, and C with artificial viscosity. 
Source term subvector S with artificial viscosity. 


Description 


Subroutine AVISC1 adds explicit and or implicit artificial viscosity to the governing equations, using the 
constant coefficient model of Steger (1978), as presented by Pulliam (1986b). The model is described in 
Section 9.1 of Volume 1. The explicit artificial viscosity may be second and/or fourth order, and is added 
only during the first ADI sw T eep. The implicit artificial viscosity is second order, and is added during both 
sweeps. 


The fourth-order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 
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where / and j van from 3 to NPT1 — 2 and from 3 to NPT2 — 2, respectively. At grid points adjacent to 
boundaries the fourth-order differences in the above equation cannot be used, and therefore are replaced 
by second-order differences. Thus, at / = 2 and at i = NPT! — 1, with j varying from 3 to NPT2 — 2, 


'i.j 


S U + - 


4>At 






Similarity, at j — 2 and at / — NPT2 — 1, with / varying from 3 to NPT1 — 1, 


S (, / ~ S; . / + 


~T7~ 


[-(VjA^Oyj + V^Q^.] 


( lie second-order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 


s u = s u + 


4?>At, 




A 


J 


(V,A,0 + 


where i and j vary from 2 to NPT1 — 1 and from 2 to NPT2 — 1, respectively. 

1 he second-order implicit artificial viscosity for the first ADI sweep is implemented in Fortran by re- 
defining the coefficient block submatriecs as 


A U ~ A U ~ ' 


zA t u 


iL j 

J ■ 

c A T ij 

B/,y = + 2 - — Jjj 

' U 

,■ ... r j 

IJ / J l+hj 


where i and j vary from 2 to NPT! — 1 and from 2 to NPT 2 — 1, respectively. Similarily, for the second 
sweep, 


A; 


J A ij 




J: ; 


/ . ‘Tv-i 

c i Az ij 

tyj — B; y + 2 ~ — J t j 

J ij 


C l Ar i,j 


r — C 

y iJ f J ij + 1 
' t,.I 


J: 


Remarks 

1. The sign in front of each artificial viscosity term depends on the sign of the "ij" term in the difference 
formula. See Section 9. 1 of Volume 1 for details. 

2. The coding to add artificial viscosity to the energy and/or swirl momentum equations is separate from 
the coding for the remaining equations, and is bypassed if they arc not being solved. 

3. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
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direction. For the first sweep (which includes all the explicit artificial viscosity) the order is thus (12 ,11), 
and for the second sweep the order is (11,12). 

4. For spatially periodic boundary conditions in the £ direction, fourth-order differences could be used at 
/ = 2 and at / = NPT1 — 1 ( = A^). Similarly, for the direction, fourth-order differences could be used 
at j = 2 and at j — NPT2 — 1 ( = A r 2 ). The logic to do this has not been coded, however, and at these 
points second-order differences are still used, as described above. 

5. This subroutine generates the output for the IDEBUG(2) option. 
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Subroutine AVISC2 



A, B, C 

* CAVS2E, CAVS4E, CAVS2I 
CP, CV 

DTAU 

FT AX, ETAY, ETA I 

* IAV2E, IAV4E, IAV2I 

* IDEBUG 

♦ IHSTAG 

♦ IPRT1A, IPRT2A 
ISWEEP 

♦ ISWIRL 
IT 

JI 

NC, NXM, NYM, XZM, NEN 

+ XOUT 

NPRT1, NPRT2 
NP IT, NPT2 

NR, NRU, NRV, NRW, NET 

P, T 
RGAS 

RHO, U, V, W, ET 
S 

XIX, XIY, XIT 


Coefficient submatrices A, B, and C without artificial viscosity. 
User-specified coefficients k 2j k 4 , and 
Specific heats c p and c v at time level n . 

Time step At. 

Metric coefficients rj x: (or rj r if axisymmetric), and 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £ and y] directions. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

Array indices associated with the continuity, x-momentum, 
^-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Unit number for standard output. 

1 otal number of indices for printout in the £ and rj directions. 

A-] and N 2 for non-periodic boundary conditions, *F 1 and 
A r 2 + 1 for spatially periodic boundary conditions in <J and v \ . 

Array indices associated with the dependent variables p, pu } pv, 
pw, and E t . 

Static pressure p and temperature T at time level n. 

Gas constant R. 

Static density p, velocities u t v, and w, and total -energy E T at time 
level n. 

Source term subvector S without artificial viscosity. 

Metric coefficients % y (or £ r if axisymmetric), and £ r . 


A, B, C Coefficient submatrices A, B, and C with artificial viscosity. 

S Source term subvector S with artificial viscosity. 
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Description 


Subroutine AVISC2 adds explicit artificial viscosity to the governing equations, using the nonlinear co- 
efficient model of Jameson, Schmidt, and lurkel (1981), as presented by Pulliam (1986b). Ihe model is 
described in Section 9.2 of Volume 1. Second-order implicit artificial viscosity can also be added, using the 
constant coefficient model of Steger (1978) described in Section 9.1 of Volume 1, although this is not 
normally used in combination with the explicit nonlinear coefficient model. The explicit artificial viscosity 
is added only during the first ADI sweep. I he implicit artificial viscosity is added during both sweeps. 

The explicit artificial viscosity in the z direction is computed first, at the ^-indices j = 2 to NPT2 — 1. 
The spectral radius term , and the pressure gradient scaling factor a l f are computed and stored in local 
one-dimensional arrays for i— 1 to NP1 1. Special formulas are used to compute o near boundaries, as 
described in Section 9.2 of Volume 1. 


The second-order artificial viscosity is added first, and is implemented in Fortran by redefining the source 
term subvector as 


S; 


- Sjj + 


' ! 1 


(t), +u 





Or, after evaluating the differences, 


S, 


IJ 


S U + 



(4%TO+tj-Qu> 

(4 4-1. /W; — 


where i varies from 2 to NPT1 — 1. 


The fourth-order explicit artificial viscosity is added next, and is implemented similarly by redefining the 
source term subvector as 


\j = S,J 




Or, after evaluating the differences, 


s u - s i,j ~ 
+ 



(4 4) ) u (Qimj - 3 ^«.y + 3< ?u - Q.-1 J 

(4"’),-, jW+i j ~ «)u + 3< ?,-, j) 


where i varies from 3 to NPT1 - 2. Special formulas are used at i = 2 and at i — NPT1 - 1, as described 
in Section 9,2 of Volume 1. 


The explicit artificial viscosity in the 17 direction is computed next, and is implemented in a manner 
analogous to that just described for the explicit artificial viscosity in the { direction. 

Ihe second-order implicit artificial viscosity for the first ADI sweep is implemented in Fortran by re- 
defining the coefficient block submatrices as 


PROTELS 2-D Programmer's Reference 


PROTEUS Subprograms: AVISC2 67 


A -A J^L ±1 / 

*i,j ~ i>j / 

E A T i j 

\)=' R ij+ 2 —r Lj ij 

J U 


c = c - 

l J f .y 


z A r iJ 

y. . Ji +'J 

J u 


J 


where i and j vary from 2 to NPT1 - 1 and from 2 to NPT2 - 1, respectively. Similarity, for the second 
sweep, 


A .. = A .._^iy 


®;,y - B/,y + 2 
£ 

c = c 

tj ly 


J U 
E I AT iJ 


ij - 1 


/ • ^ 
J t>j 


A*ij 


J J. . '’UJ + 1 

*%y 


Remarks 


1. The sign in front of each artificial viscosity term depends on the sign of the "ij" term in the difference 
formula. See Section 9.1 of Volume I for details. 

2. The coding to add artificial viscosity to the energy and/or swirl momentum equations is separate from 
the coding for the remaining equations, and is bypassed if they are not being solved. 

3. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For the first sweep (which includes all the explicit artificial viscosity) the order is thus (12,11), 
and for the second sweep the order is (11,12). 

4. For spatially periodic boundary conditions, the need for special formulas near boundaries could be 
eliminated. The logic to do this has not been coded, however. 

5. 'Phis subroutine generates the output for the IDEBUG(2) option. 
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Subroutine BCDENS (IBC,H BC. II Q,I MIN, I MAX, I BOUND) 

Called by 

Calls 

Purpose 

BCCiF.N 

BCGRAD 

BCMBT 

Compute density boundary conditions. 


Input 


DHL 


I BASH, IS l HP 


IBC, HBC 


1BOUND 


no 

I MIN, I MAX 
IS WHIP 
IV 
Jl 

* NOIJI 
NR 
RHO 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and HBC(I,J), where I runs from 1 to N eq , 
corresponding to the N eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Mag specifying boundary; 1 for lower boundary, 2 for upper 
boundary'. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, / k . 

Inverse Jacobian of the nonorthogonal grid transformation, J H 
Unit number for standard output. 

Array index associated with the dependent variable p. 

Static density p at time level n. 


Output 

p c Coefficient submatrices A, B, and C at boundary I BOUND (row 

IEQ only). 

S Source term subvector S at boundary' IBOUND (element IEQ 

only). 

Description 

Subroutine BC DBS'S computes coefficients and source terms for density boundary' conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 7.0 of 
Volume 1. The following sections apply these generalized equations to the particular density boundary 
conditions in PROTEUS. 6 


6 In the following description, for the first ADI sweep the dependent variable should have the superscript *, repres- 
enting the intermediate solution, and for the second ADI sweep it should have the superscript n, representing the 
final solution, for simplicity, however, only the superscript n is used. The superscripts on all other variables are 
correct as written. 
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No Change From Initial Conditions , Ap — Q 

Applying equation (7.3) of Volume 1, and noting that dgjd Q = JdgjdQ , we get simply 

= o 

Specified Static Density, p — f 

Applying equation (7.5) of Volume 1, 

r a A /I /■ /? + 1 

*w,y ^PiJ ~ Jij ~~ PiJ 

Specified Two-Point Density Gradient in Coordinate Direction , dpld<j> = f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary', and using two-point one-sided differencing, 

~ J \ J^PUj + ^2,j^P2J = (Af)/i*y 1 + p n \j ~ P2J 

At the £ = 1 boundar> r , 

~ y iV, -1,; A p"v, -1 J + -^V, J &Pn x ,] = ( A £)/tt, J + PiV, —1,7 - 

Analogous equations can easily be written for the r\ boundaries. 

Specified Three- Point Density Gradient in Coordinate Direction , dpjd(j> = f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 

-3/j j A plj + 4 J 2 j Ap2j - J 3 j Ap3,j = 2(A0f”f + 3p" y - - 4p 2 j + p”j 
At the £ = 1 boundary, 

— 2,y ^A r , -2,y “ ^A r , -l f y -l,y + ^A^y j = ^(Af)/^ j — p ^ _ 2 j + 4p^ j — 3p^ y 

Analogous equations can easily be written for the rj boundaries. 

Specified Two- Point Density Gradient in Normal Direction, Vp ■ n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


-J.jA^j^J^jAplj- 


At 


m 


by 


r n+\ (^jc + £y1y)\J c * 

Kj 7WT; VlJ 


1 J 


+ P\,j- P2,j 


where 




and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1. At the f = 1 
boundary, 


/ a ah . f A a/i A^ 

~ J S, -\J A P,V 1 — l.y + 7 A),y ApA'„y ~ 7^T“ 




/-n+l £ « 

^‘ v l.y “ “ 


m S\J 


Vat,./ 


, /7 
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Analogous equations can easily be written for the rj boundaries. 

Specified Three- Point Densifi GradierU in Normaj Direction, Sp.n=J 

Applying equation (7.12a) of Volume 1 at the { = 0 boundary, and using three-point one-sided differ- 
encing, 




m 

m \j 


\.„+l (Zx1x+£/lyh.J £ n 

fij wi Vu 


1 J 


+ 3p " j — 4p",y + P3,j 


where 


_ U 2 _ 1 _ 

m ~ V £x "b l =y 


and <5 is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ 1 


boundary, 


•Av, -2 ,j^p\ —2,7 ~ 4 y /V, - 1,7 A/, <V, -1,7 + 3J Nl jAp Nl j 


m 

m N,J 


, n+ l (Zx r lx + n 

fSti V»w 


P?V, - 2,7 + 4 p"v, - 1 J <V„ j 


TVnalogous equations can easily be written for the y boundaries. 
Linear Extrapolation of Static Density 

Applying equation (7.14) of Volume 1 at the £ = 0 boundary , 


J 


k a n 


2J 2J Ap n 2J + J 3J Ap”j = ~p1j + 2p”,7 


n 

Plyj 


At the £ = 1 boundary, 


J Nl - 2,7 Ap” V) - 2,7 ~ ^.V, - 1,7 ^ - 1,7 + • / V ,.7 A ^i J “ “^i - 2.7 + - 1.7 

Analogous equations can easily be written for the >7 boundaries. 


Remarks 

1 jhis subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 
2. An error message is generated and execution is stopped if a non-existent density boundary condition is 
specified. 
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Subroutine BC 

:elim 

Called by 

Calls 

Purpose 

EXEC 

SGEIA 

SGFSL 

Eliminate oil-diagonal coefficient submatriccs resulting from three- ” 
point boundary conditions. 


Input 


A, B, C 

IBCH.M 


iswhhp 

IV 

M'Q 

NIQP 

NP IS 
S 

Output 


Coefficient submat rices A, B, and C before eliminating off- 
diagonal blocks. 

I lags lor elimination of off-diagonal coefficient submatriccs re- 
sulting from three-point boundary conditions m the f and rj di- 
rections at either boundary; 0 if elimination is not necessary, I if 
it is. 

Current ADI sweep number. 

Index in the "vectorized" direction, i v . 

Number of coupled equations being solved, N 

Cray PARAMETER specifying maximum number of coupled 
equations allowed. 

Number of grid points in the sweep direction, A\ 

Source term subvector S before eliminating off-diagonal blocks. 


A, B, C 


Description 


Coefficient submatrices A, B, and C after eliminating off- 
diagonal blocks. 

Source term subvector S after eliminating off-diagonal blocks. 


nf.w rOUt Tv BC, 'f IM dl T natCS ‘he off-diagonal coefficient submatrices that result from the application 
f three-point boundary conditions. I his is necessary when three-point gradients are specified in the coor- 

S of°VoZfl ° n ’ and WhCn hnCar extra P° lation is used - The procedure is described in Section 


Remarks 


A U and rT SGF bl and | S i 5ES i L are , Cra y UNPACK routines. In general terms, if the Fortran arrays 

\YTM B i P A , a r d u B ’, Wh r re a square N by N matrix ^ B is a matrix (or vector) with 

M Ul columns, and it the leading dimension of the Fortran array A is FDA then the Fortran se- 
quence ' 


10 


CALL SGEFA ( A, LDA, N, IPVT, INFO) 

DO 10 J = 1 , NCOL 

CALL SGESL ( A, L DA, N, IPVT, B( 1 , J ) , 0 ) 
CONTINUE 


computes A B, storing the result in B. 
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Subroutine BCF (IBC, FBC, IEQ, IMIN, IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCFLIN 

BCGRAD 

BCMET 

Compute user-written boundary conditions. 


Input 

DEL 

IBASE, ISTEP 
IBC, EBC 


I BOUND 
1EQ 

IMIN, I MAX 
ISWEEP 

* ISWIRL 
IV 

JI 

♦ NOUT 

NR, NRU, NRV, NRW, NET 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(U) and I BC(I,J), where I runs from 1 to N eq} 
corresponding to the N eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the 'Vectorized" direction, i v . 

Inverse Jacobian of the nonorthogonal gnd transformation, J 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu , pv, 
pvv, and E r . 


Output 

A I) £ Coefficient submatrices A, B, and C at boundary IBOUND (row 

IEQ only). 

S Source term subvector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCE computes coefficients and source terms for user-written boundary conditions of the 
form A F= 0, F = f dF/d<f> =f and VF- n = f The values of F and its derivatives with respect to the de- 
pendent variables must be supplied by the user-written subroutine BCFLIN. I he linearized equations for 
these types of boundary conditions are developed in Section 7.0 of Volume 1. The following sections ex- 
pand these generalized equations in detail. 7 


7 In the following description, for the first ADI sweep the dependent variables should have the superscript , re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n representing 
the final solution. For simplicity, however, only the superscript rx is used. I he superscripts on all other variables 

are correct as written. 
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Xo Change From [nitkd Conditions A F = 0 


Applying equation ( 7 . 3 ) of Volume 1, and noting that dg/d Q = Jdg/d Q, we get simply 

Jtj [^ Ap + A(pu) + A{pv) + a^ A(pAvv ° + A ^1 j = 0 
Specified Value, E = f 


Applying equation ( 7 . 5 ) of Volume 1 

J u\ 


dF * a , dF 4 . A v dF A f)F A riF a 

+ A(pw) + 4F AE 


I _ /*«+! If” 
r - hi ~ h ij 


d{pu) ■ d(pv) -" r j ■ d( P w) • dEj 

Specified_ 7u ’o-PoirU GradierU iri Coordinate^ Direction, dF[d<f> = f 

Applying equation ( 7 . 8 ) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

+ a^f A(pw) + A{pv) + a^ r A(pw) + it A ^ r ] Uj + 


j 

2 ' y L <?a 


A P + SFr A (pu) + -EjF A(pv) + ~ ~T A H + ~~ A£ r l = 

^' r J2,/ 


a(p«) 


a( P v) 


a(pw) 


(AiVu' + Kj-^j 


At the £ = 1 boundary, 


Aw[ 


aF A? + 4(A) + 4L- 4( ; v) + 4( ;.) + 


a(pw) 


a(pv) 


dp 

dF 

dp ~ r ’ d(pu) “ vr "' 1 a(pv) 

•n+l 


dE r 

A P + ~S~r A (p«) + -5777 A(pv) + -7777 A(pw) + A£ r 


a(pw) 


d(pw) 


■T 

T - 

J -V,J 


Analogous equations can easily be written for the >7 boundaries. 

Specified Three- Point GradierU in Coordinate Direction dFld<t> = f 

Applying equation ( 7 . 8 ) of Volume 1 at the <f = 0 boundary, and using three-point one-sided differenc- 
ing, 


- U u[ 


,,F + + SrT 4(A) + -Jr— 4(A) + 4(A) + -it- 4£ 


ap 


a(pw) 


a(pv) 


a(pw) 


dE 7 


4J 


dF a a 

jL'V 4 '’ 


+ ^ 4<; “> + + 4(A) + ih 4 * 


d(pu) 


■J* 

Ji.y 

~i n 

K lr 


'3.J 


[ % 4? + <w 4( ' , " ) + ‘a^T ^ + + 7^ ±1 ~ 


2 (A^)/"i j 1 + 3F( j - 4 £ 2 j + ^3 j 

At the if = 1 boundary, 
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J 

4J 


r il 

v i dp 

*,-u[ f 
-’Aw[f 


A p + S~r a (p“) + A(pv) + 


Ap + 


d(pu) 

dF 

d(pu) 


A(pu) + 


d( P v) 

dF 

d(pv) 

dF 


dF + 


A(pv) + 


d{pw) 

d£ 

d{pw) 

dF 


a dF £ 

A{f>W) + Jfa ^ 


-T 

dF 


* * fa 4<; “> + fa 4<;v) + fa> +ijr ^' T 

3 FS 


T 

J ,Vj -2 J 

T 

J Vj-l j 

T - 

J*w 


+ 


2(A WnIj - _ 2 j + 4 F lV , -i j - 3 *NiJ 

Analogous equations can easily be written for the n boundaries. 

Specified Two- Point Gradienj in Nor mal Direction, Vf ■ n =_[ 

Applying equation (7.12a) of Volume 1 at the ^ = 0 boundary, and using two-point one-sided differ- 


cncing, 


-fa%*+fa + fa a<;v) + fa ** + fa 4£ 


^ + fa ** + ^ + # 


d{pu) 

dF 


dF A , A A j. dF_ + JF_ 


d(pu) 


d(pv) 


-J + 

Jl J 

r]‘- 

J2 J 




m 


i J 


r /i . 


71-1-1 


(5jfljc + ^)u 




i,y 


-5/.J 


+ fw-^2j 


where 


W : 


<=-K+e, 

ana a is the variably centered difference operator presented in Section 6.0 of Volume 1. At the {> 1 


boundary, 


fat^+fa + fa ** + ** A{pw) + m 
Aw [ fr ^ + fa ^ + fa ^ + fa A(PW) + ^ 


A£- 


A£ r 


T 

Jtfi-l.j 

T - 

JAW 


+ 


A£ 

m N x ,J 


r n+\ 
JN,J ~ ' 


m *W 


Wj 


, r« r« 


Analogous equations can easily be written for the tf boundaries. 

Specified Three- Point Gradient in Sorm al Direction, VF*n=f 

Applying equation (7.12a) of Volume 1 at the € - 0 boundary, and using three-point one-sided differ- 
cncing, 
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- 3 'w[ 

j \ dF_ 

3,y L d p 


dF .a dF 
dp P d{pu) 


dF a dF 
dp d(pu) 


Ap + 


dF 

d(pu) 


+ kk + ik + Jy A ^]”, + 

+ ^ ^ + ^j- ^ + ~§k‘ F eJ - 

— 1 2 ,y 

T- 

J3,y 


+ af^A A (P V ) + ~S7~~T A(pw) + -^L A £. 


<5(pv) 


2A ^ [~ „+] (Z X f 1x+ £y*ly) i,y , 


AT? 


1 J 


w 


V i,y 


a(pw) 

+ 3 ^-4F£ + /ft 


a£ r 


where 


AT? 




boundary ,' hC V! “" bl! ' CCnlCrCd d,frcrcnce °P cri "» r Presented in Section 6 0 of Volume 1 


At the { = 1 


J N 

1/ 


Vi [ f A;i + ** + w A « + a^r ^ + Ok ^X, _ 2 , - 


dF a A dF A pr 

A d + TTT A(pw) + — — 


<5(p«) 

aF 


■'W [ f ^ + A <-> + €r A * + ^ A <-> ♦ Ik >q ' . 

2ALU. + Zy Y ly)N l ,j ~] 

"*W |_ /,v ^ w .v,.y Vaw ~ —2,7 + 4/^ _ l y - 3F^ J 


Analogous equations can easily be written for the t, boundaries. 
Unear Extrapolation 

Applying equation (7.14) of Volume 1 at the f * 0 boundary, 


J. . 

r dF 

Ao 4* 

dF 

A 

dF 

hy 

L 


d(pw) 

■ A(pu) + 

d(pv) 


r d£ 
L 

Ap + 

dF 

d(pu ) 

A (pu) + 

dF 

d(pv) 

y 3,y 

f a/- - 

_ dp 

Ap + 

dF 

d(pw) 

A(pu) + 

dF 

d(pv) 

- F* -L 

2 ^y- 

/T n 

~ U.j 






dF_ A 

n 

'T 

dF . . A , dF A 

A{pw)+ ik AEr 


d{pw) 

dF 


dF 


d{pw) A(pw) + 5E t AEr 


J- 

Jl J 

x + 

J2.7 

•J- 

J3,7 


At the £ = 1 boundary, 


r dF 

"'- 2 A~w 

r sf a' 

Aw L dp 


^ + ~TA(pu) + ^f-A { ; v) + -dF a/ , a , a , dF 


d(pu) 


d(pv) 


d(pw) 


A(pw) + 


A? + ^ r4( ;n, + -|£ r A ( ;e )+ SF " 


d(pu) 

dF 


d(pv ) 

aF 


d( P u) ■ d(p V ) 

- F .\\ -2,y + 2/ 'v 1 -1,7 - F S\,j 


d{pw) 

dF 


A(pw) + 


- S{pu) + 4(pv) + _g_ 4((Jlv) + 4£j . 


-|T2 

P r ] 

J-V, -2,7 

dF A T 

-aF“ A£ r + 

0t T I .Vj —1,7 

T ■ 


dF_ * 
: r 
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Analogous equations can easily be written for the >/ boundaries. 


Remarks 


1 . 

2 . 

3. 


This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 


An error message is generated and execution is stopped if a non-existent user-written boundary 
tion is specified. 

The scratch array DUMMY, from the common block DUV1MY1, is used to store the value 
function F for boundary condition types ± 93. The array is filled in subroutine BCFLIN and 
through to subroutine BCGRAD. 


condi- 

of the 
passed 
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Subroutine BCFLIN (IBC, IFQ, IBOUND, IMIN, UMAX, F.DFDRHO, DFDRU, DFDRV DFDRW 
DFDET.FBC) 

Called by 

Calls 

Purpose 

BCI 


L scr- supplied routine tor linearization of user-supplied boundary con- 
ditions. 


Input 

Boundary condition types tor current sweep direction, specified 
as IBC(I.J), where I runs from 1 to A'„, corresponding to the N, 
conditions needed, and J = 1 or 2, corresponding to the lower anJ 
upper boundaries. 

f lag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 


1BC 

I BOUND 
IFQ 

IMIN, IMAX 

Output 


DFDRIIO, DFDRU, DFDRV, 
Dl DRW, DFDLT 

DUMMY 


F 


UBC 


Three-element arrays, specified as DFDRHO(IW), etc., giving 
the values of dFjdp, dFjd(pu), dF/d(pv), dFjd(pw), and dF/dE r . 

A scratch array, specified as DUMMY(I.J), containing the value 
of the function F. The subscripts I and J run from 1 to A', and 
A 2 , respectively. I his is only needed for boundary' condition types 
± 93, and only needs to be defined at the beginning of each sweep. 

A three-element array specified as F(IW) giving the value of the 
function h at the boundary (IW = 1), at the first point away from 
the boundary (IW = 2), and at the second point away from the 
boundary (IW = 3). Values at IW = 3 are not needed for bound- 
ary condition types 91, 92, or -92. Values at IW = 2 are not 
needed for boundary condition type 91. 

Boundary condition values for current sweep direction, specified 
as FBC(I,J), where I runs from 1 to N e(l , corresponding to the N e 
conditions needed, and J = 1 or 2, corresponding to the lower and 
upper boundaries. This is only needed if values for GBC1 or 
CjBC2, or FBC1 or FBC2, are not specified in the input namelist 


Description 

Subroutine BCFLIN is a user-written routine used in conjunction with subroutine BCI- for user-written 
boundary conditions of the form AF= 0, F = f dFjdcj, =f and VF. n=f. BCFLIN supplies the values of 
/ and its dem atives with respect to the dependent variables, which are required for writing the linearized 
form of the boundary condition. 


The version of BCFLIN supplied with PROTFUS makes BCF equivalent to BC'I EMP, except for the 
total temperature options in BCTFMP. Thus /•'= T, dFjdp = dl'jdp , etc., where Land its derivatives with 
respect to the dependent variables arc computed using the perfect gas equation of state. (See Section 5.3 
ot Volume 1.) This version of BCFLIN is intended as an example for use in coding boundary conditions 
not already available. 
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Remarks 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The capability of specifying FBC as an output variable may be useful in writing time-dependent 
boundary conditions. It also may be used when specifying boundary conditions involving derivatives 
in both coordinate directions. In this case, the derivatives in the non-sweep dncction may be lagged 
one time step and treated as source terms. 
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Subroutine BC 

:gen 

« — . 

Called by 

Calls 

Purpose 

BVUP 

EXEC 

BCDENS 

BCE 

BCPRES 

BCQ 

BCTEMP 

BCE'VEE 

BCVDIR 

BCVVEE 

BCWVEE 

BEKOUT 

Manage computation of boundary conditions. 


Input 


* I BC 1 , EBC2 

Point-by-point boundary condition values for the £ and >j di- 
rections. 

* IBC1, IBC2 

Point-by-point boundary condition types for the £ and n di- 
rections. 

* I DEBUG 

Debug tlags. 

* IPRT1A, IPRT2A 

Indices for printout in the £ and >7 directions. 

ISWEEP 

Current ADI sweep number. 

IT 

Current time step number n . 

IV 

Index in the "vectorized'' direction, i v . 

II, 12 

Grid indices / and j t in the £ and rf directions. 

NBC 

Cray PARAMETER specifying number of boundary conditions 
per equation. 

NEQ 

Number of coupled equations being solved, A ; . 

♦ NOUT 

Unit number for standard output. 

NPRT 1 , NPRT2 

I otal number of indices for printout in the £ and yj directions. 

* Nl, N2 

Number of grid points A', and A' 2 , in the £ and directions. 

Output 


IBC, 1 BC 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and I BC(I,J), where I runs from 1 to A r 
corresponding to the A^ conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

1BOUND 

Flag specifying boundary’; 1 for lower boundary, 2 for upper 
boundary. 

IEQ 

Boundary condition equation number, from 1 to A r 

IMIN, IMAX 

Minimum and maximum indices in the sweep direction. 

Description 



Subroutine BCGEN manages the computation of coefficients and source terms for boundary conditions. 
It first loads the NEQ boundary condition types and values from the input arrays IBC1 and FBC1, or IBC2 
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and FBC2, depending on the ADI sweep, into the arrays IBC and FBC. This was done so that the BC 
routines could be non-sweep dependent. Next the coefficient submatrices and source term subvectors at the 
two boundaries in the current sweep direction are initialized to zero. And finally, the appropriate BC rou- 
tine is called, depending on the input boundary condition type, for each of the NEQ boundary conditions 
at each boundary in the sweep direction. 

Remarks 

| error message is generated and execution is stopped if any of the non-existent boundary condition 

types 80-89 is specified, or if the boundary condition type is less than 0 or greater than 99. 

2. This subroutine generates the output for the IDEBUG(3) option. 
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Subroutine BCGRAD (F,I,DFD1,DFD2) 

Called by 

Calls 

Purpose 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTFMP 

BCLVFL 

BCVDIR 

BCWEF 

BCWVFL 


Compute gradients with respect to £ and rj. 


Input 


* ALPHA 1.ALPHA2 

DXI, DETA 
F 

I 

ISWEEP 
II, 12 

♦ Nl, N2 

Output 

DFD1, DFD2 
Description 


Spatial difference centering parameters a, and a 2 , for the £ and ^ 
directions. 

Computational grid spacing A£ and A>/. 

A two-dimensional array, specified as F(I,J), containing the func- 
tion/whose gradient is to be computed. The subscripts I and J 
run from 1 to i\\ and V 2l respectively. 

Current grid point index in the current sweep direction. 

Current ADI sweep number. 

Grid indices / and j, in the £ and rj directions. 

Number of grid points N { and N 2 , in the £ and y directions. 


First derivatives of / with respect to { and >/. 


Subroutine BCGRAD computes first derivatives of the function /, with respect to £ and rj, at the current 
gnd point in the ADI sweep direction. At interior points, the variably centered difference formula presented 
in Section 6.0 of Volume 1 is used. For derivatives with respect to £, 

(If),/ i( u ' ‘ 

An analogous formula is used for ij derivatives. 

At boundary points three-point one-sided formulas are used. 

(ir),/ W<-V..; + 4 4y-/3,;) 

(tT ) V| / TaT -j J - 4 A, -l j + 3 A',.y) 

Again, analogous formulas are used for tj derivatives. 
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Subroutine BCMET (I,FM0,FM1,FM2) 

Called by 

CaUs 

Purpose 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCVDIR 

BCWEL 

BCWVEL 


Compute various metric functions for normal gradient boundary con 
ditions. 


Input 

E TAX, ETAY 
I 

ISWEEP 
II, 12 
XIX, XIY 

Output 

FMO, FM1, FM2 


Metric coefficients y x and rj y (or y\ t if axisymmetric.) 
Current grid point index in the current sweep direction. 
Current ADI sweep number. 

Grid indices i and y, in the £ and y\ directions. 

Metric coefficients and (or if axisymmetric.) 


Various metric functions used for normal derivative boundary 
conditions. 


Description 

Subroutine BCMET computes metric functions used for normal gradient boundary conditions. For the 
first ADI sweep, 

FMO- Vd + iT 

FM1 = 0 

FM2 — f>x*1x T £y*1y 

And for the second sweep, 

FMO = vd + d 
FM1 = % x r\ x + i y f\ y 
FM2 = 0 
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Subroutine BCPRES (IBC, FBC, IEQ, IMIN. IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute pressure boundary conditions. 

Input 



CP, cv 
DEL 


Specific heats c p and c„ at time level n. 
Computational grid spacing in sweep direction. 


DPDRW°bpDET U ’ DPDRV ’ Derivatives dpi dp, dpld(pu), dpjd(pv), dpld(pw), and dp\dE T . 
DTDRW°bTDET U ’ DTDRV ’ Derivatives STjdp, dTjd(pu), dTjd(pv), dTjd(pw), and dTjdE r . 


GC 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

IMIN, EMAX 
ISWEEP 

♦ ISWIRL 
IV 

JI 

♦ NOUT 

NR, NRU, NRV, NRW, NET 


P, T 
PR 

RGAS 

RHO, U, V, VV 
* RIIOR, UR 


Proportionality factor g c in Newton's second law. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and FBC(I,J), where I runs from 1 to N e , 
corresponding to the i\ eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, i ¥ . 

Inverse Jacobian of the nonorthogonal grid transformation, J l . 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu pv 
pw, and E r 

Static pressure p and temperature T at time level n. 

Reference pressure p r . 

Gas constant R . 

Static density p , and velocities u , v, and w, at time level n. 
Reference density p r and velocity u r . 


Output 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 
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Description 


Subroutine BCPRliS computes coefficients and source terms for pressure boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 7.0 of 
Volume 1 . The following sections apply these generalized equations to the particular pressure boundary 
conditions in PROTEUS . 8 


So Change From Initial Conditions, Ap = 0 

Applying equation (7.3) of Volume 1, and noting that dgfdQ = JdgjdQ, we get simply 


A 


op 

Jp Ap + 


dp a dp A dp A dp A 

A( ^ + 7^ A(pv) + A{pw) + ~di^ Ahr 


= 0 


\CJ 


The derivatives dpjdp, dpld(pu) f etc., depend on the equation of state, They are defined for a perfect gas 
in Section 5.3 of Volume 1. 


Specified Static Pressure , p = f 

Applying equation (7.5) of Volume 1, 


J, 


cj 


-f- A p + - f P ~- A (pu) + - d P - A (pv) + A (pw) + -ff A/ V 

dp 1 d {pu) d(pv) d(pw) dt T 


f n - M PrSc n 

-JiJ 2 Pi >j 

J i t j Pr u r 


Specified 7 'wo- Point Pressure Gradient in Coordinate Direction, dpjd(}> f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 




h j 


|r ^ + -Wu) A0> “ ) + 4( '’ v) + ^ + &rr _ 

— 4? + -i P — 4(A) + Tyy 4(A) + ,,77 Mpw) + 1 &- A,lV 


hj 


dp 


d( P u) 


J 2,J 


+ l /V&r . n n 

(A^/lJ J+P\J-P2J 

p r u r 


At the 4 = 1 boundary, 

dp 


-A', -1,7 


, A ? + A (A) + ^ a<A) + -A- A( A) + J- 
dp d(p*/) <3(pv) d(pw) dL r 


+ 


./ 




V| -i,y 


dp a d/t A d/> A d P d P Ar 

Ap H A(prd + — — — A(pv) + — — — A (pw) + ,, A t T 

dp P d(pu) y ’ d(pv) d(pw) dt r J,v,,y 

(As)/v,,y f + Av, — 1 ,y Av,,y 

Pr w r 

Analogous equations can easily be written for the 17 boundaries. 


8 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n f representing 
the final solution, f or simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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Specified^ Three- Point Pressure Gradieru in Coordinate Direction, dp!d<b = [ 

Apptying equation (7.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 




dJ 2 j 


J Ej 


dp A dp a dp A dp A dp a 

a7 a " + M a( ' 1 " 1 + IS? a( '’‘' , + W ^ + a^ Af; ^ 

. A ^ 5/J A A <3p a dp a' 

V 4,1 + a^f ^ + « acp '' ) + ^ + a^ A£r 

jjP A A <5p /V <5/? A <5/? A (J p A 

a^ ^ + ai^T A( ' , " ) + a£ a ^ 


XKVfi' + 3rf.; - 4 pi,, + ft’j 

Pr u r 


by 

2.7 
/? 

3.7 


At the £ = 1 boundary, 


/ 


d/ 7 A A ^/? A / A \ , dp A 5/? A 5 Z7 

■ V Ap + W 4( ' ,u) + « i( ' ,v) + ai^T A( ' , “' 1 + ai7 


47 


5(pw) 

r dp A A 5/1 A <?p A dp a dp 

»■ J [ a7 Ap + aj^ 4( ' , “ ) + 4 < pv > + a 0-«’> + i^r A£ r 


5(pv) 

5/P 

5(pv) 


5(pw) 

5/> 

5(pve) 


dEn 


37 


^ A 4 . 8 P A / A v 5p A dp A dp 

>4 aT " « 4( ' > “ ) + « a< '” ,) + is a <' , “’> + Sz a£ t 


d( P w) 


dE-r 


v, - 2 ,y 

T - 

J^-1,7 

■T - 


2 < a «C - rf, j - 3^, 

p r w r 

Analogous equations can easily be written for the >/ boundaries. 

Specified^ Two- Point Pressure Gradient Irx Sormal Direction^ Vp . n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


'by 


dp A A , dp A dp A 5 n A dp 

A P + — :.a A (P«) + “S777T A (P V ) + a/ „. A A(pw) 4- -r~ A£ 


5p 


5(p«) 


<3(pv) 


5(pw) 


d£. 


7 


2,y 


5/> A , <?/> a <?/> a dp A dp A 

A ? + A (/>«) + -zr-z- A (pv) + A A(pw) + A£- 


5p 

A <£ 

w by 


5(p«) 


<?(pv) 


d{pw) 


d£ 7 


-in 

Q + 

Ji j 

I - 

J2,y 


f n + 1 Pr&c (£x r lx+ £y*ly) ],j r „ 

/lJ ^ ^ 


I « * 

+ £l ,y ~ P2,j 


where 


m = Vd+lj 

and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = 1 
boundary, 
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“ y A'i-l J 


y v„7 


dp A dp a dp * dp * dp * 

A P + a 7~ T A (P") + -5T^T A (P V ) + rSTTTT A 0 >w ) + A£ r 


<?P 

^ A A a 

Ap + 

dp 


d(pu) 

d_P_ 

d(pu) 


A(pw) + 


<3(pv) 

jP 

5(pv) 


A(pv) + 


d(pu-) 


+ 


A dp A 

__ 4((> „, ) + __ 4i ' I . 


v, - W 

“in 


V„7 


A£ 


m -v„y 


,-ai+l PrSc 

■AW 2 

p r U r 


(i x >1 x + ^Wyh-J . „ 

Vw; 


Wv / 

>1W 


. n ri 

+ P\\-\J- Ps 


\’J 


Analogous equations can easily be written for the */ boundaries. 

Specified Three-Point Pressure Gradient in Normal Direction , Vp* n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


—37 


1 J 




7 3J 


(V? a 5/? A (3/? A dp A dp A 

Ap + A(pw) + — A(pv) Hb A(pw) Hr ~~ A h T 

dp d(pw) d(pv) o(pw) ot T 

dp A dp a dp a dp a dp a 

Ap + — — - A(pw) + — — - A(pv) H- — — - A(pw) + A E r 

dp d(pu) d(pv) d(pvc) dh T 


+ 


dp A dp a dp a dp a dp a 

4M + im A, ' ,v) + a^ 4 ^ 1 + ^ 4£ 


a£ r “~ r 


i,y 

Kl 

2 J 
3,7 


_2A|_ 

"»l,7 


Pr8c 2 n 

Kj ~~“T Vw 


P r w r 


. 'j pi A n . n 
+ Mj~ 4 P2J+P3J 


where 

and S n is the variably centered difference operator presented in Section 6.0 of Volume 1 . At the £ = l 
boundary, 


A'l -2,7 


4y V[ —1,7 


3 y v„y 


dp A dp a dp a dp a dp a 

-r- Ap + — — - A(pw) + — — - A(pv) + — — - A (jow) + -jpr- A E r 
dp d(pu) d (pv) vr d(pw) dt T 


dE r “~ r 


dp r, dp * dp a dp a dp 

^ 4p + ai^f a(p " ) + a^ a(pv) + « 4(pK,) + ^ AE 

dp 4 a , , * ap a dp 

dp d(pu) d(pv) d(pw) 


■V, -2,7 


A dp A 

A(pw) H — ~p — AE-p 

Ohs') 


J^-1,7 

/? 


J»W 


2A£ 

^V.,7 


r n+\ PrSc (^A+W,V„y £ „ 

AVW “77 V^'W 


p r u r 


n . a n pi 

- P,v, -2,7 + 4 P,V, — , ,y 3 PA'i ,7 


Analogous equations can easily be written for the r] boundaries. 
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Unear Extrapolation of Static Pressure 


Applying equation (7.14) of Volume 1 at the £ = 0 boundary, 

d P 


J 


1,7 


dp 


Ap + 


2 J 


2,7 


3P 

-j~Ap + 

dp 


dp 

A{pu) + 

dp 

A(pv) + 

dp 

A 

A (pH’) + 

dp 

d(pu) 

d( P v) 

d(pw) 

dE T 

dp 

; v«»a 

A 

dp 

A ( 

A 

dp 

A, ( 

A 

dp 

A V 

A(pu) + 

A(pv) + 

A (pH') -f 


'T 


3J 


dp A dp a dp a dp a dp a 

^ + A <^ + ^ ^ + A£ 


dE r — r 


E r l - 

-1 1.7 
n't 

E r l + 

J2,7 

■T- 

J3,7 


n . ^ n n 

~P\J + 2 Pl,j~ Pi.j 


At the i = 1 boundary. 


", -2,7 
V |,7 ^ 


dp A dp a dp a dp a dp 

^ ^ A ^ + A( ^ v) + *£o- A(pw) + 


J '^-2 J 


dp A dp a dp a dp a dp a 

TP- Ap + A(pu) + — A(pv) + - At- A(pw) + -rp- A£ r 

dp d(pw) d(pv) vr d(pw) d£ r y 


, . dp A dp a dp a dp a dp a 

' I + A <?“> + « A( ' ,v) + A( ' , “' ) + l>k A£ ' 

- Av, -2,7 + 2 P\\ -\,j~ P\\J 

Analogous equations can easily be written for the rj boundaries. 

No Change From Initial Conditions for Total Pressure , A p T = 0 
The total pressure is defined as 


T 

T - 


+ 


Pt 


=/, ( 1 +J V LjV/2 ) y_1 


Applying equation (7.3) of Volume 1, we get 


kj - 


j i dp T A a , d Pr A , A A , d Pr A , A N , d Pr A , A A , d Pr A A 

J ' ‘ 1 A " + A, ' > “ ) + aS? A(f,v) + A( ' , “' ) + a£7 A£r 


J- 


where 
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t 

dp 


dp T 

dp 

d{pu) 

d(pu) 

dp T 

- dP 1 

d{pv) 

d(pv) 

dp T 

dp 

d(pw) 

d(pw) 

dp T 

dp ( 


I Z 1 J/A v — i 


)' !l 


dAT 

5p 


1 + 


( 


1 + 


y-1 

2 

y-1 


\_I_ 

A/ 2 V “ 1 

-xi^y-' 


+ PT > + 


— avr 

<?(pw) 

zr aw 2 




+/, T ( 1 + 


a(pv) 

y - ' M A-FT 


(> + ^P) 




rr dA/ 


a(pH’) 

2 


5/ir 


The Mach number is defined by 


2 _ n 2 + v 2 + vc 2 _ (P M ) 2 + (P v ) 2 + (P w ) 2 
‘ ~ yRT ~ y R p 2 T 


The derivatives dXl 2 jdp, etc., can then be derived as 


dA / 2 

= -A/ 2 ^ 

2 1 dT 

d P 

P 

I dp 

dM 2 

2 u 

A / 2 

dT 

d(pu) 

~ yp 

T 

d(pu) 

<3.1/ 2 

2v 

M 1 

dT 

d(pv) 

yp 

T 

d(pv) 

dXi 2 

2w 

X I 2 

dT 

d(pw) 

yp 

T 

3(pw) 

di M 2 

M 2 

dT 


3E t 

T 

8E 7 



Specified Totaf Pressure p T = f 

Applying equation (7.5) of Volume 1, we get 


JiJ 


dp-r . dp T A dpr A dPr . , A . &Pt . r 

— - Ap + a -- 3 - A(pu) + - 37777 - A(pv) + a , A(pvv) + “rrr - A£ t 


dp 


d(pw) 


d(pv) 


d(pw) 


dE 7 


tj 


f n + 1 PrSc _ n 

JiJ 2 Pi 'i 
Pr u r 




where p T , dp T \dp , etc., are defined above as part of the description of the Sp T = 0 boundary condition. 


Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent pressure boundary condition 
is specified. 
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3. I he multiplying factor p r gjp r u; that appears with specified values of pressure and pressure gradients is 
necessar\ r because input values of pressure are nondimensionalized by the reference pressure 
Pr — PrRTrlgc* while internal to the PROTEUS code itself pressure is nondimensionalized by the nor- 
malizing pressure p n = p r uj. (See Section 3. 1 . 1 of Volume 2.) 
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Subroutine BCQ (IBC.FBC.IF.Q.IMIN.IMAX. IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMF.T 

Compute conservation variable boundary conditions. 


Input 

* ALPHA 1, ALPHA2 


DLL, 

DXL DETA 
I BASE, I STEP 

IBC, EBC 


IBOUND 

IEQ 

EMIN, I MAX 
IS WEEP 
* ISWIRL 
IV 

11 , 12 

JI 

NC, NXM, NYM, NZM, NEN 


* XOLT 
NIP 

RHO, U, V, W, ET 


Spatial difference centering parameters a, and oc 2 , for the £ and >/ 
directions. 

Computational grid spacing in sweep direction. 

Computational grid spacing A£ and A?/. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(I.J) and F8C(I,J), where I runs from 1 to i\ er 
corresponding to the A eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary', 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the " vectorized" direction, 

Grid indices i and y, in the £ and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

Array indices associated with the continuity, x-momentum, 
^-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy' equations. 

Unit number for standard output. 

Cray PARAMETER specifying the DIMENSION size in the £ 
direction. 

Static density p, velocities w, v, and ve, and total energy h T at time 
level n. 


Output 

y 13 q Coefficient submatrices A, B, and C at boundary' IBOU ND (row 

IEQ only). 

S Source term subvector S at boundary' IBOUND (element IEQ 

only). 

Description 

Subroutine BCQ computes coefficients and source terms for conservation variable boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 7.0 
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of Volume 1. The following sections apply these generalized equations to the particular conservation van 
able boundary conditions in PROTEUS. 9 

A o Change From Initial Conditions, AQ = 0 


Apply equation (7.3) of \olume 1, and noting that dgjdQ = we get simply 

J ijAQij = 0 

where Q is the element of Q for which this boundary' condition is to be applied. 

Specified Conservation Variable , Q = f 
Applying equation (7.5) of Volume 1, 


f -A d*- = f- - O n 

ij ^i,j Jij Vij 


Specified Two-Point Conservation Variable Gradient in Coordinate Direction , dQld<t> = f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

a £i J + h J A Qlj - mAT + Qxj - Qij 

At the £ = 1 boundary , 


J ‘\ - 1,7 A e . v,-i j + j n 1 j&Qn 1 j- ( A *)/v, + y + £?,v, -\j - Qs u j 
Analogous equations can easily be written for the rj boundaries. 


Specified 1 hree- Point Conservation Variable Gradieru in Coordinate^ Direction, dQld<j> = f 

Applying equation (7.8) of Volume 1 at the <* = 0 boundary, and using three-point one-sided differenc- 
ing. 


-37, j A Qlj + 4J 2J A Qlj - J 3 j AQlj = 2(A Wf + 3 Q n x} - 4 <gj + (gj 
At the £ = 1 boundary’, 


A A &, -u - 4 J k, -u a ej, j + - ha(v%; - ej, _ 2J + 4e ;, _ u - isj,,, 

.Analogous equations can easily be written for the r\ boundaries. 


Specified I'wo- Point Consenation Variably Gradieru in Norma[ Direction, V().n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


9 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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where 


-J Uj AQlj + J 2J AQlj = 


AL 

m \ j 


n + 1 


fCj 


((xtx+M 


1,7 , 


m 


1.7 


\Q{j 


+ Q n \ tJ - Qij 


m =yj£+ «v 

and <3 7 is tlie variably centered difference operator presented in Section 6.0 of Volume 1. At the f = 1 
boundary, 


V 1.7 


A0.v, 


-i ,7 


+ J s, 


±Ql 


A; 

"■V,,7 


/'/?+ 1 

Aw - 


(fx>7;c + AV'W 




A^w 


+ Qx, 


-i.y 


fi.v 


I >7 


Analogous equations can easily be written for the boundaries. 

Specified Three- Point Conservation Variable Gradient in Normal Direction , VQ»/? = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


2Af 


/W/+ 1 

- 7 W - 


-1/, j A + 4./ 2 y Aft" y - J 3J AQlj 
(*x*1x + iy'hhj 


'1,7 


<^>,7 


+ 3C 


1.7 


4 eL + e.?', / 


where 


1 . a 2 

m = %/ £ * + i y 

and is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = 1 
boundary, 


A 


-2.7 


-2,7 - 4^v, -1,7 A Cv, + 3/. Vl ,7 a4v,.7 


2A£ 

W ,V|,7 


1 (?JC > ?Jt+ ^V.v,,7 £ n n 

A'„7 m N\,j 


C.V, -2./ i 4 Cv, 


1.7 


3£" v 


1-7 


Analogous equations can easily be written for the >/ boundaries. 
Linear Extrapolation of Conservation Variable 

Applying equation (7.14) of Volume I at the c, = 0 boundary, 


J.jAQ^j-Z/.jAQlj+J.jAQl 


-Qlj + lQlj-Q^ 


At the £ = 1 boundary, 


A, -2,7 *Ql\ -2,7 - Av, -1,7 m x -1.7 - - Aw A ^,7 « H&, -2,7 + 2 ^, -1 ,7- Cv, 


1 J 


.Analogous equations can easily be written for the rj boundaries. 
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Remarks 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent conservation variable boundary' 
condition is specified. 
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Subroutine BCSET 

Called by 

Calls 

Purpose 

MAIN 


Set various boundary condition parameters and flags. 


* GBC1, GBC2 

* GTBC1, GTBC2 


* ISWIRL 
ITDBC 


* JBCl, JBC2 

* JIBC1, JTBC2 

* KBC1, KBC2 
NBC 

NEQ 

* NOUT 

* NTBC 

* NTBC A 

* NT, N2 
Output 

FBC1, FBC2 

IBC1, IBC2 
IBCELM 


IBVLP 
JBC1, JBC2 
KBCPER 


Surface boundary condition values for the ^ and rf directions. 

rime-dependent surface boundary condition values for the £ and 
y directions. 

Flag for swirl in axisymmetric flow. 

Flag for time-dependent boundary conditions; 0 if all boundary 
conditions are steady, 1 if any general unsteady boundary condi- 
tions are used, 2 if only steady and time-periodic boundary con- 
ditions are used. 

Surface boundary condition types for the £ and rj directions. 

Flags for type of time dependency for boundary conditions in the 
£ and directions. 

Boundary' types for the £ and r\ directions. 

Cray PARAMETER specifying number of boundary conditions 
per equation. 

Number of coupled equations being solved, N eg . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary' condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points Ay and ;V 2 , in the £ and rj directions. 


Point-by-point boundary condition values for the £ and t] di- 
rections. 

Point-by-point boundary condition types for the £ and y di- 
rections. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and rj di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. 

Flags for updating boundary values from first sweep after second 
sweep; 0 if updating is not necessary, 1 if it is. 

Surface boundary condition types for the £ and directions (only 
if using the KBC meta flags.) 

Flags for spatially periodic boundary' conditions in the £ and y\ 
directions; 0 for non-periodic, 1 for periodic. 
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N PT1, NPT2 


Aj and \ 2 for non-periodic boundary conditions, \\ + ! ;md 
A 2 -f l tor spatially periodic boundary conditions in £ and >/. 


Description 

Subroutine BCSET sets various boundary condition parameters and flags. If boundary types are spec- 
ified with the KBC meta flags, the appropriate surface boundary’ condition types are loaded into the JBC 
arrays. Special flags are set ti spatially periodic boundary conditions are being used. BCSET also sets NP i 1 
and NP I 2, the number of grid points in each ADI sweep direction to be used in computing coefficients and 
source terms, l or spatially periodic boundary' conditions in the q direction, NPT1 — N 1 -f- 1 . Similarly, for 
spatially periodic boundary conditions in the >/ direction, NPT2= N2 -f 1. This is done in order to use 
central differences at the periodic boundary . (See Section 8.2.2 of Volume 1.) 

Next, if surface boundary conditions are being specified using the JBC and GBC parameters (or the 
KBC meta flags), the appropriate point-by-point boundary condition types and values (the IBC and 1 BC 
parameters) are loaded with the JBC and GBC values. 

If three-point boundary’ conditions are being used at a boundary, a flag is set for eliminating the resulting 
oil-diagonal coelhcient submatrix. If gradient (two-point or three-point) or extrapolation boundary condi- 
tions are used during the first sweep, a flag is set for updating the q boundary values after the second sweep. 
1 he input boundary condition parameters are then written to the standard output file. 

Remarks 


1. An error message is generated and execution is stopped if an invalid boundary type is specified with the 
KBC meta flags. 
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Subroutine BCTEMP (IBCFBC.IEQJMIN.IMAX, IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute temperature boundary conditions. 


CP, CV 
DEL 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

IMIN, [MAX 
ISWEEP 

* ISWIRL 
IV 

JI 

* NOUT 

NR, NRU, NRV, NRW, NET 

P, T 
RGAS 

RIIO, U, V, W 

Output 

A, B, C 


Specific heats c p and c v at time level n . 

Computational grid spacing in sweep direction. 

Derivatives dTjdp , dTjd(pu ), dTjd(pv), dTjd(pw), and d TjdE r 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and FBC(I,J), where I runs from 1 to N eqy 
corresponding to the N eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, / v . 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 
Unit number for standard output. 

Array indices associated with the dependent variables />, pu, pv y 
pw, and E r . 

Static pressure p and temperature T at time level n. 

Gas constant R . 

Static density p, and velocities w, v, and w 9 at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary' IBOUND (element IEQ 
only). 


Description 

Subroutine BCTEMP computes coefficients and source terms for temperature boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 7.0 
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of Volume 1. The following sections apply these generalized equations to the particular temperature 
boundary' conditions in FRO 11: I S. 10 

\o Change From Initial Conditions, A7' = 0 


Applying equation (7.3) of Volume 1, and noting that dg/dQ = JdgjdQ , we get simply 


, f T a a, dT A/ A y, dT A/ '\ , dT a/ a ,, dT Ar 
' i,j A f> + A pt ' + A p ^ + + A/; 


Xpv) 


d(pw) 


dFr ~" T 

_i ij 


I- 

J /,/ 


The derivatives d/’/dp, dTjd(pu), etc., depend on the equation of state. They are defined for a perfect gas 
in Section 5.3 of Volume 1. 

Specified Static Temperature > T = f 

Applying equation (7.5) of Volume 1, 


7 T dT a a , dT A , A X , dT a , a , , dT A/ A , , dT 

J i,j ~ A ^ + a ^ m ) + A (^ v ) + -V...A a 0 5VV ) + 


— m /I 

dl A f\ _ r n- 

^ T \,.r /u 


rt +1 'T'H 

1 U 


dp ’ d(pu) “ vr " 7 ’ d(pv) 7 d(ptv) vr 7 dE i 

Specified Two-Point Temperature Gradient in Coordinate Direction , dTjd<j> = f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary , and using two-point one-sided differencing, 


[ 

[ 




dT 


■A i- 1 Ap -f A(p«) + A(pv) + A(pw) -f AT, 


dT 

* 2 'j\ dp ’ d{pu) 

r^+ 1 


ar 


ar 


ar 


a(pv) 


a^w) 


ar 7 


■j 

Ji ,y 
J2J 


At the ^ = 1 boundary, 




dT A a, ar « / A 1 , ar a , a , , ar A , A , , ar a a 

“7 — Ap + — — — A(pw) + — — — A(pv) + — — A(pvv) + ■ ■■ - A E t 

op o(pu) o(pv) o(pw) dt T 


ar a ar a ar A ar A dT 

Zvw L A/> + a^Z A(pw) + ^ A(pv) + A (a*’) + A ^’ 


d(pw) 


dE-r 


•]* 

-Ivl-l.J 

-rl = 
J Vi J 


H- 


>«) ’ 3(pv) 

(AC + ^-fr^w 

Analogous equations can easily be written for the rf boundaries. 

Specified Three- Point Temperature Gradient in Coordinate Direction , dTjd4> — f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary', and using three-point one-sided differenc- 
ing, 


10 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 
the final solution. For simplicity , however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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J, 


'3,7 


r il 

A £ 1 , 

dT 

A 

A/WA -4- — 

L d P 

Ap “h 

d(pw) 

Alpwj T ^ 

r iL 

An -4- 

dT 

A(pw) + - 

L 8 p 

Ap -r 

d(pu) 

~ dT 

A ‘A 1 

dT 

A f O 7/ i 4- - 

_ C V 

Ap “T 

d(pu) 

LA\pU) T 

2(A q)J 

r/T-h 1 1 

U + 

\T n ■ 
1.7 

~ 47 2 J + 


- — - A (pv) + — — A(pw) + -jp~ At T 

3{pV) d(plv) L-t.f J 2,j 

-Hi— A (pv) + A(pvv) + AE r l 

S(pv) ^ 1 d(pw) VF Ja.y 


At the £ = 1 boundary', 

Ay -w + 4<; "' + aSS) ** + -&> «*> * ^L, -w ' 

4<; " ) + + w + 

7 — » /i 


4 A,-u[f 

3A W [ f ^ + i<; " ) + + -gk ^ 


V,J 


one 


2(A^-7^_ 2 , y + 47^_ 1J -37^ iJ 

Analogous equations can easily be written for the tj boundaries. 

Specified- Two- Point Temperature Gradient- in Sormal Direction, Vf. n =/ 

Applying equation (7.12a) of Volume 1 at the { = 0 boundary', and using two-point 
encing, 

J [ ■ f- + -ik ** + AH 4<;v) + -&> 4(pV * & + 

^ [ -gw + ^ 4<;u) + ah 4 ‘ ;v) + aaa ^ + 4 * r l, ” 


~J\ 

Jl 


dp 

m \ j 


rY\ "H 1 

h J 


~ \r r / 

(£jdbc + ZyVyhj , T n 

mfj Vh7 + h,j 


ptt 'pTI 

' 7 2,; 


where 


and <5 7 is 
boundar\ r 


/ s 2 . *2 
^ \ d - Cy 

the variably centered difference operator presented 

. P dT .a . dT a/_ a .a 1 31 a/ , A _l - 

_y v, 


/ e 2 . e2 

W “ V d" sy 

Section 6.0 of Volume 1. 


in 


Aw 


fW + «§0 4(; "> + ^ + ^ A <W + W 

I 

, x n — T n 

THf—j *V n»J | + 1 A -1.7 A 'W 


-i/1 

r 

J;\ 


ar a a f <;r 

ap p d(pu) 

AiJ /-n+l (A->?x + APw . _| 

m x x j [A„7 m.v,j 'I Al ' 7 J 

/Analogous equations can easily be written for the »/ boundaries. 


dT AF 
TF~ At T 
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Specified Three- Point Temperature Gradient in Xormal Direction , VT*n = f 

Appljing equation (7.12a) of \ olume 1 at the { = 0 boundary, and using three-point one-sided differ- 
encing, 


-y, ^^ + jr_^ u) + _JT_^ )+ ST . dT - 


hi 


Til 

y L <?P 

r 

L <?p 


<?p r ■ a(p«) 1 d(pv) 1 a( pW ) T 
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W 
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+ 377, y-4^+7^. 


where 


m 


- %Ax + 


<5, is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = 1 
boundary, 
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m 


*W 






Analogous equations can easily be written for the tj boundaries. 
Linear^ Extrapolation of Stat ic Temperature 

Applying equation (7.14) of Volume 1 at the £ = 0 boundary, 




11 


r - 

’ J l d f 

4 


dp 

ar 

dp 

dT 


A P + ~S~T A (p«) + A(pv) + — -f A A(pvv) + 


ar 


a(pw) 

ar 


a(pv) 

ar 


a(pw) 


1 ^ + ~bk A(A) + bk A( * + a^ A(Ao + ib At 


T\j + 2T%j - T" j 


■J- 

Ji.y 

r a "l" 
-A E t \ + 

T — *2.7 

vj - 

J3,/ 


At the £ = 1 boundary, 
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' V] —2,7’ 


dr , or A ,;. A , _ot_ A ,; lA ^ _jt _ A( ; h . } + A/ ) y 


2J 


v.-u; 


a, A ^ + JM 40> " )+ W 4( ' >,,)+ «,».’) 1 W.T 

Ap 4- ^ — A(pJ/) 4* -f A(pv) + A/ T ^(/ >Vv ) + ^ r T 

dp H d(pu) V d(pv) r d(pw) dh T 


J 


V, J 


4^- Ap 4- <r/ T + ~ST~\ A ^ v ) + TT-V A ^ u ’) + 7/7” A/ ' 7 ' 

ap <?(/>«) <3(pv) a(piv) 


■V, -2,; 
/? 

J v, -1,7 

-l/? 

- v l.i 


+ 


r' 7 i 07'^ T n 

- r \\ -2,7+- / ,V 1 -lJ- y Vi,; 


.y 1 ~ V 1 

Analogous equations can easily be written for the r/ boundaries. 

So Change F ro m Initial Conditions for Total / eniperature, A I r — 0 
The total temperature is defined as 


7V= 7 


( ,+ 1 4 '' 2 ) 


Applying equation (7.3) of Volume 1, we get 

a/ 7 - , <yr T . a ay 

a _j 

?(pv) 






ap 


A ' i+ d^r A(/,w)+ ^r A(pv)+ 


d7 y 4 / A d /’y A 


A(pw)+-—-AT r 

< (/'“') ' T 


= 0 


‘.J 


where 


dT, 


” * / 

dp 

= 4- 1 

op \ 

df T 

- dT 1 

d(pu) 

d(pu) 

<rr T 

_ dT j 

d(pv) 

" d(pv) ' 

dT r 

dT 

d(pw) 

8(pw) 

8T r 

= dT ( 


+ nl r M i 

2 dp 


( 1 + 1 4 V ' J ) 


-4 


ar / . y- 1 V/ A ;caL 7 - 

7 = 5(^0 l 1+ 2 A/ j + 2 dip* 


2 

7 d(p W ) 

7- 1 

T PM 2 

2 

''(pv) 

y - l 

/ < ?V/2 


7C = jt_(, +1 ^ M 2\ + l^ i r ^i 

d£ r d/b, \ 2 J 2 dh T 


The Mach number is defined by 


2 , „ 2 , ...2 (p!/) 2 + (pv) 2 + (pwf 


A/ 2 = " + v + W 


yRT 


yRp 2 r 


The derivatives dXPjdp, etc., can then be derived as 
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a; v/ 2 

dp 

-»'( 

2 1 dT 

v P T dp 

d\! 2 

2 u 

M 2 

dT 

d(pu) 

yp 

T 

8{pu) 

d.\f 2 

_ 2v 

M 2 

dT 

d(pv) 

yp 

T 

d{ P v) 

<3.1/ 2 

2 w 

.\f 2 

dT 

d(pw) 

yp 

T 

d(pw) 

d.\{ 2 

M 2 

dT 


3E t 

T 

dE r 


S£eci[ied_ Total TdmgeraUtre, T t — [ 


Applying equation (7.5) of Volume 1, we get 


A 




dTj 


■A p + 


dT r 

d(pu) 


A(pu) + 


dT r 

’d^v) 


A (pv) + 


dT r 

d(pw) 


A(pw) 


f n+\ 





n 


u 


dT r 

~dE^ 


A E t 


n 

u 


where 7>, dT r jdp, etc., are defined above as part of the description of the AT t = 0 boundary condition. 

Remarks 


1. 1 his subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent temperature boundary condi- 
tion is specified. 
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Subroutine BCUVEL (IBC,FBC,IEQ,IMIN,IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute .x-velocity boundary" conditions. 

Input 



DEL 


Computational grid spacing in sweep direction. 

I BASE, I STEP 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

IBC, EBC 


Boundary condition types and values for current sweep direction, 
specified as IBC(I.J) and FBC(LJ), where I runs from 1 to N, r 
corresponding to the tV,, conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

IBOUND 


Flag specifying boundary; 1 for lower boundary", 2 for upper 
boundary. 

1EQ 


Boundary condition equation number. 

IMIN, 1MAX 

Minimum and maximum indices in the sweep direction. 

ISWEEP 


Current ADI sweep number. 

IV 


Index in the "vectorized" direction, i v . 

JI 


Inverse Jacobian of the nonorthogonal grid transformation, J l . 

* nout 


Unit number for standard output. 

NR, NRU 


Array indices associated with the dependent variables p and pu. 

RMO, U 


Static density p and velocity u at time level n. 

Output 



A, B, C 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
1EQ only). 

S 


Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BCUVEL computes coefficients and source terms for x-velocity boundary' conditions, Hie 
linearized equations for the various general types of boundary conditions are developed in Section 7.0 ot 
Volume 1 . The following sections apply these generalized equations to the particular x- velocity boun ary 
conditions in PROTEUS. 11 


u In the following description, for the first ADI sweep the dependent variables should have the superscript ‘. re- 
presenting die intermediate solution, and for the second ADI sweep they should have the superscript ^ representing 
fhe final foludon For simplicity, however, only the superscript n is used. The superscripts on all other variables 

are correct as written. 
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Ao Change From I nitial Conditions, A u = 0 


Applying equation (7.3) of Volume 1, and noting that dgfd Q = Jdg/dQ. we get simply 

J i,j £ ~ ~jr a p + a (p w )J = o 

Specified x- Velocity, u = [ 

Applying equation (7.5) of Volume l, 

J ‘j [ _ 7" a p + 7- A (P W )]. , =/"+' ~ 

Spe cified f wo- Point x- Velocity Gradieru in Coordinate Direction, du!d<i> = f 

Applying equation (7.8) of Volume 1 at the f = 0 boundary, and using two-point one-sided differencin 

~ J[ d [ ~ ~P Ap + ~P 1 j + ~ ’p' Ap + ~k A ( pU ^ J 2 j = 

At the ^ = 1 boundary , 


-J 


v, 



(A i)f$ 


+ u 


■Vi -1 J 


n 

~ W .'V, 


1 ,J 



Analogous equations can easily be written for the >7 boundaries. 

Specified^ I hire- Poin t x-Velocipi Gradieru in Coordinate Direction, duld<j> = [ 


ing Appl>ing C( l uatlon ( 7 - 8 ) °f Volume 1 at the £ = 0 boundary, and using three-point one-sided diffcrenc 


3y i J [ p A P + p A (P W )] ( _ + 4 J 2J [ - -y Ap + ■— A(pu) ^ - 
y 3 J [ - f A P + j- A(A)]” = 2(A^ n f + 3 «” y - 4«” j + ulj 
At the c = 1 boundary, 

y v, -ij [ ~ 7" a p + -p a (p u )J x _ 2 - 4 y ,v, -1 j [ ~ a p + ~jr a (p“)1 . + 

r n 1 ,y L JV Y ~\ J 

[-f^+T 4 <A)].v, j - - 4 -U + <4, -u - 3 4,1 

Analogous equations can easily be written for the >] boundaries. 

Specified Two- Point x- Velocity Gradient in Normal Direction, Vu»n = f 

Applying equation (7.12a) of Volume 1 at the <f = 0 boundary, and using two-point one-sided differ- 
encing, 
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where 


-J\.l [ - t 42 + T + y w[ ~ f 42 + T ->], - 

r „+ 1 (Zx>1x+ Zy’lyhj 


A? 


rn ~ r i 

K] " 


m 


Uj 


c n 

■Vu 1 


. ^ « 
+ w lj'“ W 2J 


AH : 


& 


V 




and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1. At the « - 1 
boundary, 


A -,.J [ -fti + T -u + y *w + f -L - 


A£ 


"‘/V.J 


fl +1 


rn-r i 

•Av,j 


(Zx^x A 


m N\J 


6 Aj 


+ u S\-\,j “V,,; 


Analogous equations can easily be written for the 17 boundaries. 

Specified Three- Point x- Velocity GradierU in Normal Directio n, Wu-n=_f 

Applying equation (7.12a) of Volume 1 at the ( = 0 boundary, and using three-point one-sided differ 
encing, 


M\,j 


'3 ,J 





2 A£ 


-MJ 


(^x^x + 


m 


1,7 


c ft 
^rt U \J 


+ 


3«u-Kj+«I 


where 

™ + 

and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = l 
boundary, 


J N l -2 J [ 
•7vi,y £ 







— i.y 


+ 


2 A^ 

m s\,] 


rn+ 1 

JNiJ 


(£x*?x + £>'*?>>) iVjJ 


V 


n 

NiJ 


A N x -2 J 


+ 4ul _! J - 3«: 


.v,,y 


Analogous equations can easily be written for the rj boundaries. 
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/.//rear Exir opo/uiion of x- Velocity 

Applying equation (7.14) of Volume 1 at the { = 0 boundary', 

7| -J [ ~ T Ap + T ~ 2J ^i [ ~ T - A P + y A (^)] 2 + 

[ ~ ~p a 'p + ~jr =- ulj + 2u n ,j - ulj 

At the £ = 1 boundary, 



Analogous equations can easily be written for the >j boundaries. 

Remarks 


1. Idris subroutine uses one-dimensional addressing ot two-dimensional arrays, as described in Section 2.3. 
2 ' i^sp e ecdied 1CSSa8e ‘ S 8Cnerated and eXL ‘ CUtl ° n 1S st °PP ed lf a non-existent x-vclocity boundary condition 
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Subroutine BCVDIR (IBC, EBC, IEQ, IMIN,IMAX, IBOUND) 

Called bv 

Calls 

Purpose — 

BCGEN 

BCGRAD 

BCMET 

Compute normal and tangential velocity boundary conditions. 


Input 

* ALPHA 1, AI PHA2 


DHL 

DXI, DH' TA 
IBASE, IS 1 EP 

IBC, LBC 


IBOUND 

IEQ 

I MIN, I MAX 
ISWELP 
+ ISVVIRL 
IV 

II, 12 
.11 

MHTX, METY 
♦ NOUT 

NR, NRU, NRV, NRW 
NIP 

RIIO, U, V, W 
Output 

A, B, C 

S 


Spatial difference centering parameters ot, and * 2 , for the £ and n 
directions* 

Computational grid spacing in sweep direction. 

Computational grid spacing A£ and At], 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array . 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and FBC(U), where I runs from 1 to A„, 
corresponding to the A'„ conditions needed, and J - 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary- 1 for lower boundary', 2 for upper 
boundary. 

Boundary' condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, i u . 

Grid indices i and j, in the £ and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J ! . 

Derivatives of sweep direction computational coordinate with re- 
spect to x and y (or r if axisymmetric.) 

Unit number for standard output. 

.Array indices associated with the dependent variables p, pu, pv, 
and pvv. 

Cray PARAMETER specifying the DIMENSION size m the £ 
direction. 

Static density p, and velocities u , v, and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary' IBOUND (element IEQ 
only). 
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Description 


particular uomral and iangemial veToci.y *° 

Specified Normal Velocity, K = f 
I he normal velocity is defined as 


V n =V.n 


where n is the unit vector normal to the boundary. For a { boundary, 

— _ V£ I ^ “T 1 

n ~~ fv^T = ^ 1 + ~n\ ZyJ 

where 


Therefore, for a £ boundary, 


Similarly, for an rj boundary, 


where 


m 




m {%x U “b £y v ) — 


~ 7fT (*x u + *l y v) =/ 


Applying equation (7.5) of Volume 1, the linearized boundary condition at a f boundary becomes 


Ji.j r ix u + z y v 


J _u r 

L 


t' .A 


^ .A T 


~P A P + — A(p«) + -f A(pv) =^7' - (K b )« 

-T,y 


An analogous equation can easily be written for the tj boundaries. 


' S^SisSSSSS 
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Specified Two- Point Normal Velocity Gradient in Coordinate Direction , dVJd -/ 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

A i r irW+ivV * Z, .. A . Zy . , A .Y . 


J u r 

m i,7 L 

h,j r 
m 2J L 


?JC W + SyV A 
77 Ap + 


.a , £jc A , ^ \ , 

p Ap + ~p~ A(P U ) + 


£ A Sy a -|" 

— A(pu) + — A(pv)J^ 

{ r A Zy A -|« 

— A(p«) + -^A(pv)J^ 


(AO/w 1 +(^)u-(^)2J 


At the ^ = 1 boundary, 

y v 1 ; r ^ r n-t-^v v „ t r A £y A “l” 

--ST^I- P - Ap+^A(pn) + ^-A(pv) + 

W ,V, -\J |_ p H 

h\J r Zj*+ZyV A z x ^ A /J _ 

L ' " + “ <P “ ) ~ ^ ’ J«W " 

(A Z)f\+j + ( J/ «).V, —1,7 ( V n)^.J 

Analogous equations can easily be written for the rf boundaries. 

Specified Three- Point Normal Velocity Gradient in Coordinate Direction , dVJd<j> —£ 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary-, and using three-point one-sided differenc- 


2(A0A n f + 3 (Vn)l.j - MYn)lJ + ( y n)3 J 

At the £ = 1 boundary-, 

^ ; ^ ; r _ 

"fv, -2,7 L P P ' Jv-2.7 

« ^7 [ - ^ a ' + T ^ + £ 4 *]”, 

3 ^7 [ - ^ a ' + £ aA + £ ■ 

2(A {)/$, j - (^)?v, -2,; + 4 ( K Yv, -i,7 " 3 (K„) i Vi,; 
Analogous equations can easily be written for the rj boundaries. 


kr 

%j L 
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Specified 7'wo- Point formed Velocity Gradient- in formal Direction, VV,.n = f 

Applying equation (7.12a) of Volume 1 at the f = 0 boundary, and using two-point one-sided differ- 
encing, 


Kj r 

m \j 


sV'+V' 


J 2J 

m 2J 


y r . a 'sjc A a 

A P + — A(pw) + -p- A(pv) -f 

Ji,/ 


V aA . Zy A r 

p Ap + p A (pw) -j- — A(pv) = 

L J 2 ,y 


As 


W 


w 


i'/i-H + Zyfyhj 

J\'t 


m 


hj 


^nflj +(V n )ij-(V n )lj 


where d, is the variably centered difference operator presented in Section 6.0 of Volume 1 At the l = 
boundary, 


_ dii zhL 

m S\-\ J 


a a l 


Ap + — A( P u) + A(pv) 


Js 

m 


>T 


+ 


r aA a t y A t 

fv, , j |_ P Ap + ~ A ^ W ) + — a (p v ) I = 


A* [ r-n + 1 + ^V<v,,y 


JV.7 


"»A'„y y/v W 




^rj( K n)N lt j + ( - 1 J ~ ( 


Analogous equations can easily be written for the 17 boundaries. 

S pecified- Three- Point Normal Velocity GradierU in Normal Direction VP, ■ n = [ 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


J u 

f tx 11 + £>» 

m l,j 

L" ' 

J 2J 

f + iyV 

m 2 j 

L 

J 3,j 

j~ $X U + Zy v 

m 3J 

p 


a p + -jr a (p u ) + 


ty a ~\ n 

~ A (,pv) 

Jt.y 


.A t X , A ty A 1" 

Ap + — A(pu) + — A(pv) 


t* 


J, 

)J- 

J3.7 


2Af_ 

m \,j 


Ap + — A (pu) + -A- A(pv) 

>\ + W!j-4(vAj + (K)lj 


! f n + x _ + ^Vby 

^ 1 *7 ffl, , °n( l f 


J 


r n)lj 


where 0 , is the variably centered difference operator presented in Section 6.0 of Volume 1 At the t = 1 
boundary*. 
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A -2 J 

Z X U + 

m S x -l.j 

p 

A — 1.7 

- Z X U + £ y v 

"'V, -1,7 

p 



T A.V 

Z x u + ZyV 

m N X J 

p 


^ A ^ 

Ap + A A(pu) + -J- A(pv) 


A L 


2Ag 

m s\J 


T 

J \\ -2 J 

Ap + A (pu) + -A- A(pv) J ^ ^ 

a tx * *y A T 

Ap + — A(pw) + — A(pv)j v _ = 


/« - " m zr - - (K * + 4( ^ 


Analogous equations can easily be written for the boundaries. 
Linear Extrapolation of Normal Velocity 

Applying equation (7.14) of Volume 1 at the £ = 0 boundary, 


At the 5=1 boundary, 


JlJ 

+ £yV 

m \J 

P 

0 A 

+ £ y V 

'”2,7 

P 




p 


-(K) n i,j + W 

A -2,7 

£ X U + ( y V 

"fy -2,7 

P 

A-u 

r 

"lv, -1,7 

L" ' 

A. 2 

r 4x«+v 

m .V„7 

L" ' 


> A S x A ly a 1" 

-A£ + ^A(^) + -f A(pv) - 
H P JlJ 


j ^ ^ 

Ap + A(pw) + -y- A (pv) | + 


■)]" 

-*2J 

A ^ A A -f 

Ap + — A(pu) + -^-A(p v )J = 


Ap + A (pu) + -j- A (pv) 


Ap + A A(p«) + f- A(pv) 


>T 

_K“2,y 

T 

J^-1,7 




-«« 
A I 


A^ + ^A(p W ) + -f-A(pv) 


JAW 


Analogous equations can easily be written for the i/ boundaries. 
Specified Tangential Velocity, V t — f 

For a £ boundary, the tangential velocity is defined as 


v t =\Sf+ 


where V , the velocity in the >/ direction, is defined as 


Vq = \/w 2 + v 2 — 

= -£r(-(y u+ fx v ) 


and 
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I hereto re, for a £ boundary, 


- m [( “ iy u + €x v ) 2 + mV] 1 / 2 


Similarly, for an boundary, 


where 


= 7^" [in y u ~ >h c v ) 2 + ™ V] 1 /2 


■ = ./. 2 ■ 2 


m - V *h + Vy 

Applying equation (7.5) ol Volume 1, the linearized boundary condition at a { boundary becomes 

( ~mV~ t )..[“■?"( V v + w2 ) a ^ “ v n ~y a (p u ) + v n yr a (p v ’) + m y a (pO~I = 

r n+i - ( V \ n . 

Jij l v thj 

An analogous equation can easily be written for the rj boundaries. 

Sp ecified i wo- Point / angential Velocity Gradient in Coordinate Direction , dVJd4> = f 

Applying equation (7.8) of Volume I at the £ = 0 boundary , and using two -point one-sided differencing, 


( n ' v t ) i [ ~ ^ ** + H ' 2 ^ ~ Vf > ~T A{pu) + v n A(pv) + m T a (pV 1 + 

( ~mv, ) , . [ ~ T~ ( v l + w ’ 2 ) a p — V tj ~p~ a (p u ) + v r,-y a (p v ) + m y a (pO J = 


(A tv?? +{Vdlj-(V& t j 


At the c — 1 boundary , 


( mv t ) v _i . I” “ T ( v \ + u ’ 2 ) a p ~ v v ~y A( p“> + v n~y A ( p v ) + m y- A (pol + 
V / 'I IJ L J,V, -1 ,j 


(^)li 


HL( i/2 

P \ 


p V V rj + w ) A P ~ K 


rj p ■ a (p«) + v n y~ A (P V ) + m ~y A (pw 


•) 

Mj 


( A «C; + (^)5 v, ^v„y 

Analogous equations can easily be written for the rj boundaries. 


Specified Three- Point Tangential Velocity Gradient in Coordinate Direction , dVJd<j> = f 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 
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+ K„-^A ( P v) + m 

t* 


f-A(pw)l + 

:V 


( -^T ) 3 [ - f - (^ + "■>£ - p- 4 ( 0 ") + 4 (A) + "'A 4 (oA)] = 


2(AO/,j 1 + 3(^)'' y - 4( V t )2j + TO,; 


At the £ = 1 boundary, 


*1 -2 J 


( )"v, -2 i [ " ^ (>/ ’ + "' 2)a? ~ ^ ^ 4( '’“ ) + ^ T- 4 ^) + m f 4 <0“)] V| 

2(MVS*! - ( v,)n, - 1.1 + « ('.)"v, ,.y- K I'A, J 


+ 


Analogous equations can easily be written for the >7 boundaries. 

Specified Two- Point Tangential Velocity Gradient in Normal Direction , W t *n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 

- ( ~y t ) I . [ - -f' ('• K + ">p - v n ~jr A(A) + v nir A(pv) + ™f a (A')] ^ + 


( ^ ) 2J [ 


% + w )Ap - Vnp a (p w ) + *V -f - A &> v ) + m IT A{pw) 


r 1 P 


-*\J 

J- 

J 2 J 


A| 


‘ wr+i (^x + Wi.y £/I/x « 

f\j «r7 


+ (^)u-(^) 2 .y 


where <5^ is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = 1 
boundary, 


( -^ )” v - ir (^ + ">2 - >V ^ a (A) + Vr, a(A) + « -*- a (p")] 

( ) v, . [ - ir ( + h ’ 2 ) a p - v n ir A ^> + F . ^ A ^ + m f A( ^ vv) ] v . = 

+ W* 1 -u-Whj 


+ 


At 


f n+ 1 (l V/x + £/?>■) A-W 

A-„y /7J V / 


Analogous equations can easily be written for the rj boundaries. 
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Specified Three- Point Tangential Velocity Gradient in Normal Direction , W r ^n—f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 



-y ( v i, + w2 ) a p - v r, ~y a (p u ) + v n yr a (p v ) + m y a (p w ) + 


— ( v 2 

p V V 


( K, + u ’‘)Ap - V n A (pu) + V n f A (pv) + aaj 


>] 

7 1 A(ph-) J 


A/7 


.A „ A ,, ‘’V 


( + W’ )A/> - — A (pu) + V n — A (pv) + m — A(pw) 


y 


3,7 


2 A; 

W l,7 


r «+l (£*% +£>•>?>•) 1,7 , n/ .n 
2 1,7 7aT~ V K l)l,7 


1,7 




where is the variably centered difference operator presented in Section 6.0 of Volume 1. At the £ = 1 
boundary, 


J 

mV , 
J 


JM 


m / ,,i , 2 \ a a t/ 

-p“ K V r, + W ) A P-K 


h -2,7 


+ *‘) a p ■ 


(K +w 


2 )Ap - V. 


' n ~y a (p u ) + v n fr a (p v ) + m y A (/ >vt, )l 
V n y A (pu) + V n y- a (p v ) + m y a (p w ) J 

£ x A W A 

A ( n\i\ 4 - m A ( yi I — 


+ 


= y A a 

^ A (/>m) + — Afcv) + m — 

^ « 4- ^ ^ .. . 


Analogous equations can easily be written for the y\ boundaries. 
Linear Extrapolation of Tangential Velocity 


Applying equation (7.14) of Volume 1 at the ( = 0 boundary, 

( ^ )' J [ ■ ■ ■ f {V ' + ■ v « IT i(p “ ) + v « ¥ + 

2 ( )" , [ - ^ (K ’ + H ' 2)i ' ■ |, 'T 4<,,A “ ) + V T- ^ + 
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W K f A V 

— A{pw) 


w 


\ my t / 2 . 7 L K ' 

. . . n . . _ ai 


^ V A £ Y 

K„-f A(p M )+K_-^ 


-M.7 

I 

A(pw) + 
J 2,7 


At the f = 1 boundary, 
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( ) v _ 2 , [ “ ^ ^ + w2 ^ “ ~T S[ ( >u) + ' . it A (^') + ra 7 A ^*'>] v _ 2 . - 

n ] ^ ? Y 1 * 

2 ( ^7 ) v -i j [ " ^ + ~ Vfl ^ A(p,w) + ^ "? A(pAy) + A(/> ' w) J v _, . + 


(^)'J 


m ( , ,2 

p 


( v tj + w )Ap - V n — A (pu) + V n — 

" ( f/ r)A, -2,7 + 2 ( F f)\, -l.y ~ ( V fs\,j 
Analogous equations can easily be written for the y\ boundaries. 


A(pv) + m 


7T A (pw) 

Jaw 


Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent normal or tangential velocity 
boundary condition is specified. 
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Subroutine BCWEL (IBC.EBC, IEQ, IMIN. IMAX. IBOUND) 

CaUcd by 

Calls 

Purpose 

BCGEN 

BCGRAD 

Compute y or r - velocity boundary conditions. 


BCMET 

* 1 

Input 

DEL 


Computational grid spacing in sweep direction. 

IBASE, ISTEP 

Base index and multiplication factor used in computing one- 
dimensional index ior two-dimensional array. 

IBC, EBC 


Boundary' condition types and values for current sweep direction, 
specified as IBC(I,J) and FBC(I,J), where I runs from 1 to V, ? , 
corresponding to the N rq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

IBOUND 


Flag specifying boundary; 1 for lower boundary', 2 for upper 
boundary'. 

IEQ 


Boundary condition equation number. 


IMIN, IMAX 
ISWEEP 
IV 
JI 

♦ NOUT 


Minimum and maximum indices in the sweep direction. 
Current ADI sweep number. 

Index in the "vectorized" direction, 

Inverse Jacobian of the nonorthogonal grid transformation, J 1 
Unit number for standard output. 


NR, NRU, NRV 


Array indices associated with the dependent variables p, pu, and 

pv. 


RIIO, U, V 


Static density p, and velocities u and v, at time level n. 


Output 


Coefficient submatrices A, B, and C at boundary' IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BCWEL computes coefficients and source terms for y or /--velocity boundary' conditions. 
The linearized equations for the various general types of boundary' conditions are developed in Section 7.0 
of Volume 1. I he following sections apply these generalized equations to the particular y or /--velocity 
boundary conditions in PROTEUS. 13 


13 In the following description, for the first ADI sweep the dependent variables should have the superscript \ re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript /z, representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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■Vo Change From Initial Condition 1 ;, Av = 0 

Applying equation (7.3) of Volume 1, and noting that dgjOQ = Jdg/dQ, we get simply 


J: 


‘J 


[- t a 


0 


Specified y or r- Velocity , v = f 

Applying equation (7.5) of Volume 1, 

J iJ [ - Y A P + f A (/ >v )]. . =fiJ X ~ V ‘J 

Specified Two- Point y or r- Velocity Gradient in Coordinate Direction , dv/Aft =/ 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary', and using two-point one-sided differeneing, 

-A j [ - 7T a p + f A ^ v) ] 1>; + J ^j [ “ T Ap + f A(pv) ] 2>y = 

/ A y-tt+1 . A? n 

( A ^l/i,y + V 1J — V 2J 

At the £ = 1 boundary, 

-i ,7 [ - T ^ + f A ^ v) lv, -u + J ‘ v - J [~T^ P + T A(pV) J.v,,y “ 

/Ai : \rn+\ . n n 

( A ^)/v„; + v a'i -1,7 ~ v ,v,j 

Analogous equations can easily be written for the r/ boundaries. 

Specified Three-Point y or r- Velocity Gradient in Coordinate Direction. di’/Afr = / 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 

- 3 -A j [~jr A P + f A (/ JV )] 1 . + 4y 2,7 [ - -J- a p + 7- a (^ v )] 2 . ~ 

J 3J [-jpAp+f Mpv)J 3 . - 2(40/,:;’ + 3v"y - 4v'” y + v" y 

At the £ = 1 boundary', 

y ,V, -2,7 [ - y A P + f A(PV) ].V, - 2 ,7 ~ 4/y > -U [ “ f Ap + T A H,V, -l,y + 

37 v, ,7 [-f A P + jr a (h]", . = 2( A ^)Aw - v .v, -2.7 + 4v "’, -u 3v *W 

Analogous equations can easily be written for the ►; boundaries. 

Specified^ Two- Point y or r- Velocity GradierU in Norma[ Direction, Vv - n =/ 

Applying equation (7.12a) of Volume 1 at the ( = 0 boundary, and using two-point one-sided differ- 
encing, 
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-J 


1 J 


[ - 7- A P + y A(pv)J t _ + j 2 J 

A<? ^x*lx + iy^vh.j 

m \.J \ J]J m \,j 



where 


m ~ yf Zx + 

and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1 . At the £ = 1 
boundary, 


A -W [ - T + T ^)] Vi J + \.j [-ffip + j- A(pv)]”, . = 




f n + 1 (£x*1x + 

AV.J ~ 


m s hJ 


j r n 

~ d n v N\.J 


t ,, n n 

+ %-! J~ V S\J 


Analogous equations can easily be written for the >7 boundaries. 

Specified Three- Point y or r- Velocity Gradieru in Normal Direction, Vv . n_ = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing. 


where 



m ~ yj £x + £y 

and <5, is the variably centered difference operator presented in Section 6.0 of Volume 1 . At the £ = 1 
boundary, 


,V, —2,j 


A.7 



V k-2J + 4v k-LJ-*kj 


~4 \ 


2A£ 

r n+\ ^x'lx + Zy1y)\\,j c „ 


J *i-J m N l J < V' v iJ 


Analogous equations can easily be written for the >7 boundaries. 
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Linear Extrapolation of y or r- Velocity 


Applying equation (7.14) of Volume 1 at the £ — 0 boundary, 

J hj[~y A P +‘7T A (p v )J i — 2^2 ,y £ +"^“ A (P v )J 2 .+ 

hj [ “ 'y a p + 7 “ a (p v ) j 3 v i \j + 2 v 2 j - v*j 

At the s = 1 boundary, 



Analogous equations can easily be written for the rj boundaries. 

Specified Flow Angle, tan~ ] (v/zh = f 

This boundary condition can be rewritten as 

ir = ^f 

where /is the specified flow angle. Multiplying by pu , 

( tan f)pu — pv = 0 

Applying equation (7.5) of Volume 1 to the above equation, we get 

J lj [( lan /)"y 1 A(pu)"j - A {pv)lj\ = - ( tan f) n l } + (pv)-j 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2 . 3 . 

2. An error message is generated and execution is stopped if a non-existent ^-velocity boundary condition 
is specified. 
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Subroutine BCWVEL (IBC,FBC,IEQ,IMIN,I.MAX, IBOUND) 

Calls 

BCGEN BCGRAD Compute swirl velocity boundary conditions 

BCMET 


Purpose 


Called by 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Boundary condition types and values for current sweep direction, 
specified as IBC(I,J) and 1 BC(I,J), where I runs from 1 to N e<f1 
corresponding to the N eq conditions needed, and J = 1 or 2, cor- 
responding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary’. 

Boundary' condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, / v . 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, and 

pw. 

Static density p, and velocities u and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary’ IBOUND (element IFQ 
only). 


Subroutine BCWVEL computes coefficients and source terms for swirl velocity boundary' conditions. 
The linearized equations for the various general types of boundary' conditions are developed in Section 7.0 
of Volume 1. The following sections apply these generalized equations to the particular swirl velocity 
boundary’ conditions in PROTEUS. 14 


14 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n , representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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No Change From Initial Conditions, Aw = 0 


* 

Applying equation (7.3) of Volume 1, and noting that dgjdQ = JdgjG Q, we get simply 


J u[~T Ap + ^A( P V]". = ' 


Specified Swirl Velocity, w — , 


Applying equation (7.5) of Volume 1, 


J ij [ - jr Ap + \ A(ph')]. , =f”j + ' - w”j 


Specified Two- Point Swirl Velocity Gradient^ in Coordinate^ Direction, dwj d4> = [ 

Applying equation (7.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided, differencing, 

- J \ <J [ ~~T A ^ + p~ , j + J 2,j [ ~ N A P + T a (^ w )] 2 . = 

1 + w \,j ~ w 2j 


At the f = 1 boundary, 


+ a (A')] Vi _ Kj + [ - f A P + Jr A H ;Vi . y = 

+ w K l -l,j- w N l J 

Analogous equations can easily be written for the t] boundaries. 

Specified Three- Point Swirl Velocity Gradient in Coordinate Direction, dwld<j> = f 

Applying equation (7.8) of Volume 1 at the ^ = 0 boundary, and using three-point one-sided differenc- 
ing, 

-37, &p+jr A(ptv)j" _ + 4 J 2J [~~Ap + jr A(A)]" . - 

J 3 J [ - -J- A P + y A(pw) = 2(A + 3w" y - 4w"j + w"j 


At the £ = 1 boundary, 

\ -2 j [-f A P + jr A (^)] V) _ 2J - 4 J Ni -u {~f A P + jr A ^]^ _ u + 

3 J NxJ [ - f - a Z+j- A(A’)]" V] . = 2(A Wftj - _ 2J + 4w” Vi _ lt y - 3u£ w 

Analogous equations can easily be written for the >] boundaries. 

Specified^ Two- Point Swir[ Velocity Gradieru in Normal Direction, Vve • n = f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using tu'o-point one-sided differ- 
encing, 
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~ J \ j [ _ 7" a p + y A (/ olv ')J ] . + J i,j [ ~ -y a 'p + y A(pw) = 


A; 

m \ j 


AT - 


1 (^X } T d" ^ytfy) 1 J 


m 


1 J 


c n 

S n w hj 


. n n 

+ W \J ~ W 2J 


where 


™=Tl+f. 


and (5, is the variably centered difference operator presented in Section 6.0 of Volume 1 . At the q = 
boundary, 


~ J \\ -i,y [ - ~)r + ~f &(p w ) 


Li —l,y + [ W p ^ + p A(pH ' ) ],V„7 “ 


A ( 

77 v . J 


r n+ 1 (tx*lx + Zy1y)\\,j c „ 

/v i J m s\,j °n w Xi-J 


. n n 

+ lv .v 1 - 1 ,y- w v „7 


Analogous equations can easily be w ritten for the ij boundaries. 

Specified I hree- Point Swirl Velocity Gradient in Normal Direction, Vw ■ n — f 

Applying equation (7.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ 
encing, 


-l/i / 


J [ _ 7" A P + ~p~ A(^)]_ _ + 4 J 2 j - -y Ap + -f A(pw)J^ - 

/ r w a a j. i * / a 2a < 

Aj l~T Ap+ T a ^ h ’)J 3 = 7^ 


f n + 1 (Zx*lx + Zylyh.j 
Jl.i rn. I 


r n 

V’ij 


n a n n 

3vv t j ~ 4 w 2 j + w 3 j 


where 


m 


l P- JL. P 


and ^ is the variably centered difference operator presented in Section 6.0 of Volume 1. At the 
boundary 7 , 


■ /v l -2,7 

[ - -y A P + A(pw) 

n 

- 47 v 

V, -2,7 


W .A , 1 .. A T 

- -p- Ap + — A(piv)J ^ 


[-fAp + f A(pw) 

n _ 2A£ 


(^jdbc 4" ^> > l>’)iV l ,7 c j 

.v„; ~ m N x J 

m iV„y * ■ 

ft | 4 /l -J ^1 

K ’V, — 2,7 + 4k A-1,7~ 3u A 1 ,7 




Analogous equations can easily be written for the rj boundaries. 
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Linear Extrapolation of Swirl Velocity 


Applying equation (7.14) of Volume 1 at the £ = 0 boundary, 



At the £ = 1 boundary, 



Analogous equations can easily be written for the rj boundaries. 

Specified Flow Angle, tan ~ l {wlu) == f 

This boundary condition can be rewritten as 

-£ = tan/ 

where /is the specified flow angle. Multiplying by pu } 

( tan f)pu — pvv = 0 

Applying equation (7.5) of Volume 1 to the above equation, we get 

A,j [( tan /)"y - A = - ( tan/)” y + 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent swirl velocity boundary con- 
dition is specified. 
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Subroutine BLIN1 

Called by Calls Purpose 

TURBBL Compute inner layer turbulent viscosity along constant £ lines. 


Input 

* APLUS 
+ CB 
+ CNL 


* CVK 

* II. DAMP 

* INNER 

* IWALL2 
II 

MU 

MIT 


* N2 

* RFR 

RIIO, U, V, W 
VORT 
X, Y 


Output 


MUT 


Description 


Van Driest damping constant A + . 

Constant B in the Spalding- Kleinstein inner layer model. 

Exponent n in the Launder- Priddin modified mixing length for- 
mula for the inner region of the Baldwin- Lomax turbulence 
model. 

Von Karman mixing length constant used in the inner region of 
the Baldwin- Lomax and Spalding- Kleinstein models. 

flag for Launder- Priddin modified mixing length formula in the 
Baldwin- Lomax inner region model. 

Flag for type of inner region model. 

Flags indicating whether or not the v\ boundaries are walls. 

Grid index i in the £ direction. 

Laminar coefficient of viscosity p,. 

Outer layer turbulent viscosity coefficient (i* t ) outer along constant £ 
lines. 

Number of grid points N 2 in the t] direction. 

Reference Reynolds number Re r 
Static density p, and velocities u , v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y , or cylindrical coordinates * and r . 
Turbulent viscosity coefficient p, along constant £ lines. 


Subroutine BLIN1 computes the inner layer turbulent viscosity coefficient (p f ) i/m , along constant £ lines 
(i.e., due to walls at r] = 0 and/or >/ = 1.) Two different inner region models are available - the model of 
Baldwin and Lomax (1978), and the model of Spalding (1961) and Kleinstein (1967). These are described 
in Section 3.2 of Volume 1. 


If both r\ boundaries are solid walls, (p t ) imer is computed separately for each wall, and it is assumed that 
the tw'o inner regions do not overlap. For each w 7 all, the computation is done inside a loop starting at the 
w T all and moving outward. Once the inner region value exceeds the outer region value, the loop is exited. 
Thus /i, = (nXnner until > (/i, then n, = 


The distribution of p r across the intersection of the inner and outer regions is smoothed using the fol- 
lowing formulas. For the ^ = 0 wall, 
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^4 = t ^4 -i + 2(// 4 + ^4 +> ] 

( ' u 4 -i = t t (/i 4 -2 + 2 ^4 + ( ^4 ] 

where the boundary between the inner and outer regions falls between between j~j b — 1 and j=j b . It 
should be noted that the unsmoothed value of (/x f ) ; is used in the second smoothing formula, not the 
smoothed value from the first formula. Similarly, for the rj = 1 wall, 

= j K^4 +' + 2(,t 4 + f/i 4i] 

(^4 +t = 4 fo*4 +2 + 2 ^4 +i + 

where the boundary between the inner and outer regions falls between between j — j b -f 1 and j — j b . 
Remarks 

1. To avoid the possibility of floating point errors, the value of | O | ^ used to compute r + and u r is set 
to a minimum of 10 -10 . 
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Subroutine BLIN2 


Called by 

Calls 

Purpose 

TLRBBL 


Compute inner layer turbulent viscosity along constant rj lines. 


Input 

* APLUS 

* CB 

* CNL 


* CVK 
DUMMY 

* 1LDAMP 


* INNER 

* I WALL 1 
12 

MU 

* N 1 

+ RER 

RIIO, U, V, W 
VORT 
X, Y 


Output 


DUMMY 


Description 


Van Driest damping constant A N 

Constant B in the Spalding- Kleinstein inner layer model. 

Exponent n in the Launder- Priddin modified mixing length for- 
mula for the inner region of the Baldwin- Lomax turbulence 
model. 

Von Karman mixing length constant used in the inner region of 
the Baldwin- Lomax and Spalding- Kleinstein models. 

Outer layer turbulent viscosity coefficient {ii) outer along constant rj 
lines. 

Flag for Launder- Priddin modified mixing length formula in the 
Baldwin- Lomax inner region model. 

Flag for type of inner region model. 

Flags indicating whether or not the £ boundaries are walls. 

Grid index j in the y direction. 

Laminar coefficient of viscosity p,. 

Number of grid points A', in the £ direction. 

Reference Reynolds number Re r . 

Static density p, and velocities w, v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 
Turbulent viscosity coefficient p, along constant rj lines. 


Subroutine BLIN2 computes the inner layer turbulent viscosity coefficient along constant lines 

(i.e., due to walls at £ = 0 and/or £ = 1.) The procedure is exactly analogous to that used in subroutine 


BLIN1. 
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BLOCK DATA Subprogram 


Called by Calls 


Purpose 


Set default values for input parameters, plus a few other parameters. 


All namelist input parameters, plus: 
CCP1, CCP2, CCP3, CCP4 


CK1, CK2 


CMU1, CMC 2 


1BCLLM 


IBVUP 


ICONV 

IGINT 


ITBEG 

KBCPLR 


NC, NXM, NYM, NZM, NEN 


NR, NRU, NRV, NRW, NET 


Constants in formula for specific heat. (8.53 x 10 3 , 3.12 x 10 4 , 
2.065 x 10 6 , 7.83 x 10 8 ) 15 

Constants in formula for laminar thermal conductivity coefficient. 
(7.4907 x 10 A 350. 0) 15 

Constants in formula for laminar viscosity coefficient. (7.3035 
x 10 ", 198.6) 15 

Proportionality factor g c in Newton's second law. (32.174) 15 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and y] di- 
rections at cither boundary; 0 if elimination is not necessary, 1 if 
it is. (2*0, 2*0) 

Flags for updating boundary values from first sweep after second 
sweep; 0 if updating is not necessary, 1 if it is. (0,0) 

Convergence flag; 1 if converged, 0 if not. (0) 

Flags for grid interpolation requirement for the £ and r\ directions; 

0 if interpolation is not necessary, 1 if it is. (0,0) 

The time level n at the beginning of a run. (1) 

Flags for spatially periodic boundary conditions in the f and y] 
directions; 0 for non-periodic, 1 for periodic. (0,0) 

Array indices associated with the continuity, x-momentum, 
^-momentum (or /--momentum if axisymmetric), swirl momen- 
tum, and energy equations. (1,2, 3, 5, 4) 

Unit number for standard input. (5) 

Array indices associated with the dependent variables p, pu, pv, 
pw, and E t . (1,2, 3, 5, 4) 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. (NMAXP*1.0) 

Initial time value r. (NTOTP*0.0) 


15 These values are for reference conditions specified in English units. Values for SI units are set in subroutine IN- 
PUT. 
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Description 


The BLOCK DAT A routine is used to set default values for all the input parameters, plus various other 
parameters and constants. The defaults for all the input parameters are given as part of the standard input 
description in Section 3.1 of Volume 2. The values for the other parameters and constants set in BL OCK 
DATA are given in parentheses in the above output description. Note that some of these values assume 
English units are being used to specify reference conditions. If SI units are being used, these values are re- 
defined in subroutine INPUT. 

Remarks 

1 Most of the default values are defined directly, but some, like the reference viscosity MUR, are set equal 
to zero and defined in subroutine INPUT if not specified by the user. 
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Subroutine BLKOUT (I1PT.I2PT) 

Called by 

Calls 

Purpose 

ADI 

AVISC1 

AVISC2 

BCGEN 

FILTER 


Print coefficient blocks at specified indices in the £ and directions. 


Input 

A, B, C 

* IHSTAG 
ISVVEEP 

* ISWIRL 
I1PT, 1 2 FT 

NC, NXM, NYM, NZM, NEN 
NEQ 

* NOUT 
S 


Coefficient submatrices A, B, and C 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Indices for printout in the £ and rj directions. 

Array indices associated with the continuity, .x-momentum, 
j;- momentum (or r- momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Source term subvector S. 


Output 

None. 


Description 


Subroutine BLKOUT prints the coefficient block submatrices A, B, and C, and the source term sub- 
vector S at the grid points specified by I1PT and I2PT. This is the routine that actually prints the output 
for the IDEBUG(l) through IDEBUG(4) options. 
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Subroutine Bl K3 


Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 3x3 block tridiagonal system of equations. 


Input 


A, B, C 
NPTS 
NV 
S 

Output 

S 

Description 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, iV. 
Number of grid points in the "vectorized" direction, ;V,. 
Source term subvector S. 


Computed solution subvector. 


Subroutine BLK3 solves a block tridiagonal system of equations with 3x3 blocks using the block matrix 
version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero values 
on the diagonal of the submatrix B at the two boundaries. These can occur when boundary conditions are 
specified using the JBC and/or IBC input parameters, depending on the initial conditions and the order of 
the boundary conditions. 


The algorithm is described in Section 8.2. 1 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, we can save storage by overwriting B, C, and S. The 
following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, for the 
first ADI sweep. An exactly analogous procedure is followed for the second sweep. 


Step 

In Fortran 

In Volume 1 Notation 

I 


D, = B, 

2a 

LU decompose B lt storing result in 

LU decomposition of 

2b 

Solve BjEj = C, for Ej using LU decomposition of 
B ( , storing result in 

E, = DfC, 

2c 

Solve B t AQJ = S, for AQi using LU decomposition 
of B p storing result in S! 

aq; = Dr's, 


For / = 2 to iVj, 


3a 

Compute B, — A ( C,_ 1? storing result in B, 

D, = B, - AE, 

3b 

Compute S, — A^S,^, storing result in S, 

S.-A.AQL, 

3c 

LU decompose B ; , storing result in B z 

LU decomposition of 

3d 

Solve BE, = C, for E, using LU decomposition of B,, 
storing result in C, 

E, = D,'C, 

3e 

Solve B,AQ' = S, for AQ' using LU decomposition 
of B,, storing result in S, 

AQ' =D-'(S,-A 1 AQ;- 1 ) 

4 


AQ a . = AQ' Vi 


For / = A r j — 1 to 1, 


5 

Compute S, - QS,^, storing result in S, 

AQ, = AQ; - E.AQ,., 
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Remarks 


1. The notation used in the comments in BLK3 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BTK3P 

Called by 

Calls 

Purpose 

ADI 


Solve 3x3 periodic block tridiagonal system of equations. 


Input 

Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, A\ 

Number of grid points in the "vectorized" direction, N ¥ . 

Source term subvector S. 

Output 

S Computed solution subvector. 

Description 

Subroutine BLK3P solves a periodic block tridiagonal system of equations with 3x3 blocks. An efficient 
algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. The 
algorithm is described in Section 8.2.2 of Volume I. For clarity, that description involves additional "new" 

matrices D, E, F, G, and AQ'. In Fortran, however, we can save storage by overwriting A, B, C, and S. 
The following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, for 
the first ADI sweep. An exactly analogous procedure is followed for the second sweep. 


A, B, C 
NPTS 
NV 
S 


Step 

In Fortran 

In Volume 1 Notation 

la 


d 2 = b 2 

lb 


f 2 = c„, 

2a 

LU decompose B 2 , storing result in B 2 

LU decomposition of D 2 

2b 

Solve B 2 E 2 = C 2 for E 2 using LU decomposition of 
B 2 , storing result in C 2 

e 2 = iv c 2 

2c 

Solve B 2 G 2 = A 2 for G 2 using LU decomposition of 
B 2 , storing result in A 2 

g 2 = IV a 2 

2d 

Solve B 2 AQ 2 = S 2 for AQ 2 using LU decomposition 
of B 2 , storing result in S 2 

aq 2 = D 2 'S 2 
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Step 

In Fortran 

In Volume 1 Notation 

3a 

For i — 3 to .Vj — 1, 

Compute B ( — storing result in B, 

1) B, A F, , 

3b 

Compute S, — A^S,^, storing result in S, 

s.- a.aq; , 

3c 

Compute — A^A,...,, storing result in A ; 

-A.G, i 

3d 

I U decompose B ( , storing result in B f 

LU decomposition of IX 

3e 

Solve B ty = C, for E, using IT decomposition of B ( , 

F = D l 2 C, 

3f 

storing result in C, 

Solve B,G ( = A,- for G, using LU decomposition of B ( , 

G, = D ' A.G, , 


storing result in A, 


3g 

Solve BAQ' = S, for AQ' using IT decomposition 

aq; — i), ‘(S, — a.aq; , ) 


of B , storing result in S, 

t l 

3h 

Compute B iVi — C jVi A (1 , storing result in B V[ 

B v , - IF y G ; 

7 = 2 

3i 

Compute S Nl — storing result in S iV} 

s.v, - 'ii-'AQ: 
;--2 

3j 

Compute — C Vj C ; __ , , storing result in C V) 

F, = —F ( . 

4a 

Compute A Y] l5 storing result in A Vj 

G Nx _i = Wjvj ,(C A - _j — A, Vi i G Vi _ 2 ) 

4b 

Compute \ N[ T C A y storing result in C Vl 

ATj - - 1 “ A jVj — F jVl 2 

4c 

Compute B (V — . l5 storing result in B Vi 

Dv, = B Vi - V F G, 

i - 2 

4d 

Compute S Yj — C N S N storing result in S iVj 

- v i 1 

s.v, - v f,aq; 

/= 2 

4c 

LU decompose B jV , storing result in B Vj 

LU decomposition of I) v 

4f 

Solve B v AQ' Vj = S iVi for AQ Y( using LU decompos- 

aqv =d y ;(S y - s'f.aq;) 


ition of « v , storing result in S Vj 

1 1 1 i -2 

5 


AQ jV) = AQ'v, 

6 

Compute S, v . , — A Vj . ,S A ^, storing result in S V[ 

AQ,vj ■ i — AQ Y] _[ — G, V[ jAQ^ 

7 

For i = .V, - 2 to 2, 

Compute S, — A,S V — C,S, f) , storing result in S, 

AQ, = AQ' - G AQ v, - F AQ , 

8 

Set S, = S v . 

AQ, = AQ.v, 


Remarks 


1. The notation used in the comments in BLK3P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK4 

Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 4x4 block tridiagonal system of equations. 


Input 

A, B, C 
NPTS 
NV 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N v . 
Source term subvector S. 


Output 

S Computed solution subvector. 

Description 

Subroutine BLK4 solves a block tridiagonal system of equations with 4x4 blocks using the block matrix 
version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero values 
on the diagonal of the submatrix B at the two boundaries. These can occur when boundary conditions are 
specified using the JBC and/or IBC input parameters, depending on the initial conditions and the order of 
the boundary conditions. 

The algorithm is described in Section 8.2.1 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The al- 
gorithm is identical to that used in subroutine BLK3. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 


Remarks 


1. The notation used in the comments in BLK4 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK4P 

Called by 

Calls 

Purpose 

ADI 


Solve 4x4 periodic block tridiagonal system of equations. 

Input 

A, B, C 
N PTS 
NV 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, V. 
Number of grid points in the "vectorized" direction, N v . 
Source term subvector S. 

Output 

S 

Description 


Computed solution subvector. 


Subroutine BLK4P solves a periodic block tridiagonal system of equations with 4x4 blocks. An efficient 
algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 1 he 
algorithm is described in Section 8.2.2 of Volume 1. For clarity, that description involves additional "new" 

matrices D, E, F, G, and AQ'. In Fortran, however, storage is saved by overwriting A, B, C, and S. The 
algorithm is identical to that used in subroutine BLK3P. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 

1. The notation used in the comments in BLK4P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BFK5 



Called by 

Calls 

Purpose 


ADI 

fii n r 

Solve 5x5 block tridiagonal system of equations. 



A, B, C 
NPTS 
NV 
S 

Output 

S 

Description 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the Vectorized" direction, N„. 
Source term subvector S. 


Computed solution subvector. 


Subroutine BLK.5 solves a block tridiagonal system of equations with 5x5 blocks using the block matrix 
version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero values 
on the diagonal of the submatrix B at the two boundaries. These can occur when boundary conditions are 
specified using the JBC and/or IBC input parameters, depending on the initial conditions and the order of 
the boundary conditions. 


I he algorithm is described in Section 8.2.1 of Volume L For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The al- 
gorithm is identical to that used in subroutine BLK3. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 


L The notation used in the comments in BLK5 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms arc stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK5P 

Called by 

Calls 

Purpose 

ADI 


Solve 5x5 periodic block tridiagonal system of equations. 

Input 

A, B, C 

NPTS 

NV 

Coefficient submatrices A, B, and C 

Number of grid points in the sweep direction, N. 

Number of grid points in the "vectorized" direction, N v . 


S Source term subvector S. 


Output 

S Computed solution subvector. 

Description 

Subroutine BLK5P solves a periodic block tridiagonal system of equations with 5x5 blocks. An efficient 
algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations, the 
algorithm is described in Section 8.2.2 of Volume 1. For clarity, that description involves additional new 

matrices D, E, F, G, and AQ'. In Fortran, however, storage is saved by overwriting A, B, C, and S. 1 he 
algorithm is identical to that used in subroutine BLK3P. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 

1. The notation used in the comments in BLK5P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algo nthm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLOUT1 

Called by 

Calls 

Purpose 

Tl'RBBL 

ISAMAX 
ISAM IN 

Compute outer layer turbulent viscosity, using the algebraic Baldwin- 
Lomax model, along constant £ lines. 


Input 


* APLUS 

* CB 

* CCLAU 

* CCP 

* CKLEB 

* CNA 

* CWK 

* IWALL2 
II 

MU 
+ N2 
+ RER 

RIIO, U f V, W 
VORT 
X, Y 

Output 

LWAKE2 

MUT 


Van Driest damping constant A N 

Constant B in the Klebanoff intermittency factor. 

Clauser constant K in the Baldwin-Lomax outer region model. 

Constant C cp in the Baldwin-Lomax outer region model. 

Constant C K!eb in the Klebanoff intermittency factor. 

Exponent n in the formula used to average the two outer region 
/i, profiles that result when both boundaries in a coordinate di- 
rection are solid surfaces. 

Constant C wk in the Baldwin- Lomax outer region model. 

Flags indicating whether or not the tj boundaries are walls. 

Grid index i in the £ direction. 

Laminar coefficient of viscosity jx { . 

Number of grid points /V 2 in the direction. 

Reference Reynolds number Re r 
Static density p, and velocities u , v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 


Grid index j in the y direction used as the origin for computing 
length scales for free turbulent flows. 

Outer layer turbulent viscosity coefficient {n) ou1er along constant £ 
lines. 


Description 

Subroutine BLOUT1 computes the outer layer turbulent viscosity coefficient (p f ) 0Iif#r along constant £ 
lines (i.e., due to walls at y\ = 0 and/or r] — 1, or due to a free turbulent flow in the f direction) using the 
algebraic eddy viscosity model of Baldwin and Lomax (1978). The model is described in Section 3.1 of 
Volume 1. 


In BLOUT1, the values and locations of | V\ max and | V\ min are found first. Next, if a solid wall exists 
at y] = 0 and/or >7=1, the parameter F wakt is computed for each wall. If neither rj boundary is a solid wall, 
a free turbulent flow in the £ direction is assumed. In this case F wakt is computed using the procedure de- 
scribed in Section 3.1 of Volume 1. 

Finally, if a solid wall exists at rj = 0 or at rj = 1, but not both, or if neither rj boundary is a solid wall, 
the value of {n t ) outtr is computed directly. If both yj boundaries are solid w'alls, the two computed values of 
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F wake are combined using the averaging formula presented as equation (3.12) of Volume 1, and the resulting 

value is used to compute (fi t ) Juter 

Remarks 

1. The Cray BLAS routines IS A\1 AX and ISAMIN are used in computing | ^ max | » j ^ mm j ! ^tld F max ■ 

2. If the maximum and minimum total velocities are equal, indicating a uniform flow along this particular 
£ line, their locations are arbitrarily set equal to the middle »; index. This normally would occur on v 
during the first time step in a case with uniform initial velocity profiles. 

3. To avoid the possibility of floating point errors, the values of | V m „\, | V mm \ , and F max are set to a 
minimum of 10 l0 . 
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Subroutine BLOUT2 

Called by 

Calls 

Purpose 

TURBBL 

ISAMAX 
ISAM IN 

Compute outer layer turbulent viscosity, using the algebraic Baldwin- 
Lomax model, along constant lines. 



Input 


+ 

APLUS 

Van Driest damping constant A + . 

+ 

CB 

Constant B in the Klebanoff intermittency factor. 

+ 

CCLAU 

Clauser constant K in the Baldwin-Lomax outer region model. 

+ 

CCP 

Constant C cp in the Baldwin-Lomax outer region model. 

* 

CKLEB 

Constant C KUb in the Klebanoff intermittency factor. 


CNA 

Exponent n in the formula used to average the two outer region 
profiles that result when both boundaries in a coordinate di- 
rection are solid surfaces. 

* 

CWK 

Constant C wk in the Baldwin-Lomax outer region model. 

* 

I WALL 1 

Flags indicating whether or not the f boundaries are walls. 


12 

Grid index j in the rj direction. 


MU 

Laminar coefficient of viscosity fi } . 

* 

N1 

Number of grid points N x in the £ direction. 

* 

RER 

Reference Reynolds number Re r 


RIIO, U, V, W 

Static density p, and velocities «, v, and w. 


VORT 

Total vorticity magnitude. 


X, Y 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 

Output 



LWAKEI 

Grid index / in the £ direction used as the origin for computing 
length scales for free turbulent flows. 


DUMMY 

Outer layer turbulent viscosity coefficient 0 ) outer along constant tj 
lines. 

Output 


Description 



Subroutine BL0LT2 computes the outer layer turbulent viscosity coefficient (/r,) OUI „ along constant rj 
lines (i.e., due to walls at £ = 0 and/or i ~ 1, or due to a free turbulent flow in the rj direction) using the 
algebraic eddy viscosity model of Baldwin and Lomax (1978). The procedure is exactly analogous to that 
used in subroutine BLOUT1. 
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Subroutine BVUP 

Called by 

Calls 1 

Purpose 

EXEC 

BCGEN 

EQSTAT 

SGEFA 

SGESL 

Update first sweep boundary' values after second sweep. 


Input 

* ALPHA 1 
DXI 
IBVUP 

* ISWIRL 
JI 

KBCPER 

NEQ 

NEQP 


NR, NRU, NRV, NRW, NET 

NPT2 

♦ NT, N2 
NIP 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
XIX, XIY, XIT 


Spatial difference centering parameter a, for the £ direction. 
Computational grid spacing A£. 

Flags for updating boundary values from first sweep after second 
sweep; 0 if updating is not necessary , 1 if it is. 

Flag for swirl in axisymmetric flow. 

Inverse Jacobian of the nonorthogonal grid transformation, J l . 

Flags for spatially periodic boundary conditions in the £ and >] 
directions; 0 for non-periodic, 1 for periodic. 

Number of coupled equations being solved, N tr 

Cray PARAMETER specifying maximum number of coupled 

equations allowed. 

Array indices associated with the dependent variables p, pu , pv, 
pw, and E t . 

N 2 for non-periodic boundary conditions, N 2 + 1 for spatially pe- 
riodic boundary condition in tj. 

Number of grid points Ny and .V 2 , in the £ and >/ directions. 

Cray PARAMETER specifying the DIMENSION size in the £ 
direction. 

Static density p , velocities n, v, and w, and total energy E T at time 
level n at all grid points. 

Static density p, velocities u, v, and w, and total energy E T at time 
level n + 1 at all interior grid points. 

Metric coefficients £ x , (or if axisymmetric), and 


Output 

ALPHA 

DEL 

1BASE, ISTEP 

I SWEEP 
IV 

METX, METY, METT 


Spatial difference centering parameter a for the sweep direction 
being updated. 

Computational grid spacing for the sweep direction being updated. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

ADI sweep number for sweep direction being updated. 

Index in the "vectorized" direction, 

Derivatives of computational coordinate, for the sweep direction 
being updated, with respect to x, y (or r if axisymmetric), and l. 
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NPTS 

NV 

RHOL, UU, VL, WL, ETL 


Number of grid points A’ in the sweep direction being updated. 

Number of grid points in the "vectorized" direction, 

Static density p, velocities u , v, and w, and total energy E T at time 
level n + 1 at boundary points from first sweep. 

Description 


u routine BVl, P updates boundary values from the first, or sweep after the second, or tj, sweep. 

In general, this is necessary- when gradient or extrapolation boundary conditions are used in the 1 direction. 

Some updating is also necessary' when spatially periodic boundary conditions are used. The procedure is 

described in Section 8.3 of Volume 1 for all cases. 

Remarks 

1 I he 'r orner vaJues °f P and E r are updated by linearly extrapolating from the two adjacent points in the 
s antl 1 directions, and averaging the two results. Note that this extrapolation is done in computational 
space. Grid packing in either direction is thus not taken into account. The comer values of the ve- 
locities are updated by doing the same type of extrapolation. Instead of averaging, however, the ex- 
trapolated velocity whose absolute value is lower is used. This was done to maintain no-slip at duct 
inlets and exits. 

2. Subroutines SGEFA and SGESL are Cray UNPACK routines. In general terms, if the Fortran arrays 
A and S represent A and S, where A is a square N by N matrix and S is a vector with N elements and 
it the leading dimension of the Fortran array A is LDA, then the Fortran sequence 

CALL SGEFA ( A, L DA , N, IPVT, INFO) 

CALL SGESL ( A, LDA, N, IPVT, S, 0) 

computes A 'S, storing the result in S. 
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Spatial difference centering parameter a for the sweep direction. 

Spatial difference centering parameters and oc 2 . f° r £ and y\ 
directions. 

Computational grid spacing in sweep direction. 

Time step At. 

Computational grid spacing A£ and A*/. 

Metric coefficients rj y (or y\ t if axisymmetric), and rj r 
Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for tw r o-dimensional array. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, 

Grid indices / and j t in the £ and y\ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 
(tunes the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t. 

Array index associated with the continuity equation. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu y pv, 
pw, and E t . 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Static density p , and velocities u and v, at time level n. 

Static density p from previous ADI sweep. 

Parameters 9 1 and 8 2 determining type of time differencing for the 
continuity equation. 

Metric coefficients (or if axisymmetric), and £ r 

Radial coordinate r for axisymmetric flow. 


Output 


A, B, C 


Coefficient submatrices A, B, and C at interior points (row NC 
only). 
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s 

Description 


Source term subvector S at interior points (element NC only). 


Subroutine COEFC computes the coefficients and source term for the continuity equation. Equations 
(S.5a-b) in Volume 1 represent, in vector form, the four governing difference equations for the two ADI 

sweeps lor 2-D planar flow. I he elements of the inviscid flux vectors E and F are given in Section 2.0 of 
Volume 1, and the elements of the viscous flux vectors E^, E F2 , etc., are given in Appendix A of Volume 

1 I he Jacobian coefficient matrices dE/dQ, dE v JdQ t etc., are given in Section 5.0 of Volume 1. Using 
i'H ol thcsc equations, the differenced form of the continuity equation for 2-D planar flow may be written 
for the two ADI sweeps as 16 


S weep 1 (g direction) 


<V/ + 


0 , At 


( 1 + 


™ N , a \ n 

dK i \ .A* . ../ 3E, 


AQ,_,+(2«-l ) l -z- AQ, + (1 - «)( 

d( i ) i -\ V d Q Jt 


A 

dQ 


AQ, 


7+1 


(+1 




0 


1 + 0 


2 a a«— 1 

Ap 


S weep 2 (>; direction ) 


a ;> 7 + 


0 \ At 


1 (1+0 2 )Ai, 


dF, 


dQ 


AQ;_, + (2a - 1)( 


. n / A \ n 

\ a / fly \ 

aq; + (i-«)[ -e- ) aq" 


' 1 


dQ 


dQ 


7+i 


' j + 1 


A p 


In the above equations, the subscripts / and j represent grid point indices in the £ and tj directions For 
notational convenience, terms without an explicitly written / or j subscript are understood to be at / or j. 

1 he vector of dependent variables is 


Q>|[, 


pu pv E-f\ 


T 


The appropriate elements of the flux vectors are given by 


X 1 

^1 = -J [P^JC + pv£y T P^ t ] 

A J 

F, = y \puy x + pVYfy + pyjJ 


The elements of the Jacobian coefficient matrix dEjdQ for the continuity equation are 

A 

dE, 

~ir = lZ' ^ Z y 0] 

dQ 


I hese equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy E 7* would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only three elements. 
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The Jacobian coefficient matrix dFJdQ has the same form as 3E./3Q, but with { replaced by r,. 

As an example of how these equations are translated into Fortran, consider the A (pujJ) term on the left 
hand side for the first sweep. This is the second element of Q, so using the second element in dE./dQ we 


A(IV,I,NC,NRU) 

B(IV,I,NC,NRU) 

C(IV,I,NC,NRU) 


( 1 + Oj)A^ 
01 (At \j 

(l + 8 2 )AZ 

01 (At )ij 

(1 +0 2 )A^ 


( -<*)(£ x)i-ij 
(2a - mAj 


(l - «)(£*)/+ u 


The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
continuity equation for the two ADI sweeps is given by' 7 


Sweep 1 (( direction) 
0,At 


Ap * + (1 + 0 2 ) M 


dE x 


-*{ r - 7 - I AQ ( _1 + (2a - 1)1 r 

dQ /, ... V dQ 


dEx 


AQ ( + (1 - *)( r 


dE x 

dQ 


AQ, 


At X 

i + e 2 


7 [<5<(r E,) + tf,<r F,>] + -jyV- A P 


Sweep 2 (u direction) 

, 0 \ AT 1 

Ap ' + (1+0 2 )A>7 r 

where now 


• lr ^) (' )Q 


j - 1 


dFx 


d¥x 


*qU 


: A P 


/+ 1 


Q = y [p pu pv pw h r ~] T 

E l =-j[put x + pv£ r + ptA 
F, = y lP Ur 1x + P vr 1r + PVr] 


A 



ix 


Sr 0 °] 


As in 2-D planar flow, the Jacobian coefficient matrix dFJdQ has the same form as dtjdQ, but with { 
replaced by *j. 

Note that the equations for 2-D planar and axisymmetric flow are very' similar. In the axisymmetric 
equations, the radius r appears as an additional coefficient in front of the flux vectors E and F, and in front 
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of the Jacobian coefficient matrices dEJdQ and dhJdQ. In addition, 1 jr appears in front of every term in 
the equation except the Ap terms. In PROTELS, the Fortran variables are defined in such a way that for 
many terms, the same coding can be used for both 2-D planar and axisymmetric flow. Unfortunately, this 
may make some of the coding a little confusing. It is hoped that this detailed description, when compared 
with the source listing, will help make things clear. 

In COEFC, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
tor the second ADI sweep have exactly the same form as for the first sweep, but with f replaced by w. By 
defining DEL, ME IX, METY, and METT as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow 
and the radius r for axisymmetnc flow. This adds the r in front of the Jacobian coefficient matrices for 

a ^ J Sy J n Y nelnC fl ° W ’ but haS no effect for 2 ‘ D P lanar flow - The coefficient in front of each term will be 
added later In this section of code, the coefficient of Ap (part of B(IV,I,NC,NR)) is set equal to r not 1 
as it should be. I his will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
m Section 6.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
1/y, is temporarily redefmed as rjj before the COEF routines are called. This automatically accounts for 

^ mi / L COC ? j C1 f ^ m bron ^ ^ ^ UX vcctors in the source term. The 1/r coefficient in front of each term 
wiff be added later. This definition of JI adds an r in front of the Ap n ~' term that should not be there This 
will also be corrected later. 

I he coding for the source term for the second sweep, which consists only of Ap’, comes next The de- 
finition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 
1/r coefficient where it should be added, and removes the r in front of the Ap terms. 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 
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Subroutine COEFE 


Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the energy' equation. 


Input 

ALPHA 

♦ ALPHA 1 , ALPHA2 


DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

DXI, DETA 

ETAX, ETAY, ETAT 

* I AX I 
IBASE, ISTEP 

* IEULER 
ISWEEP 

* ISWIRL 

* ITHIN 
IV 

II, 12 

JI 

METX, METY, METT 


MU, LA, KT 


NEN 

NEQ 

NPTS 

NR, NRU, NRV, NRW, NET 


P, T 
PRR 
RAX 


Spatial difference centering parameter a for the sweep direction. 

Spatial difference centering parameters a, and a 2 , for the S, and >7 
directions. 

Computational grid spacing in sweep direction. 

Derivatives dpi dp , dp/d(pu), dpld(pv), dpld(pw), and dpjdE r 

Time step At. 

Derivatives dT/dp , dTld(pu) } 37/3(pv) t dTld{pw ), and dTldE r . 

Computational grid spacing A£ and A rj. 

Metric coefficients tj y (or if axisvmmetric), and rj r 
Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the "vectorized" direction, i v . 

Grid indices / and j, in the £ and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t . 

Effective coefficient of viscosity p y effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k at 
time level n. 

Array index associated with the energy equation. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu t pv, 
pw, and E r . 

Static pressure p and temperature T at time level n . 

Reference Prandtl number Pr r 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 
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♦ RER 

RHO, U, V, W, ET 

♦ THE 
TL 

UL, VL, WL, ETL 


XIX, XIY, XIT 
Y 

Output 

A, B, C 

S 

Description 


Reference Reynolds number Re r . 

Static density p, velocities w, v, and w, and total energy E, at time 
level n. 

Parameters 0,, 0 2 , and 0 3 deteimining type of time differencing for 
the energy equation. 

Static temperature T from previous ADI sweep. 

\ elocities u, v, and w, and total energy E T from previous ADI 
sweep. 

Metric coefficients (or if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Coefficient submatrices A, B, and C at interior points (row NEN 
only). 

Source term subvector S at interior points (element NEN only). 


Subroutine COEFE computes the coefficients and source term for the energy equation. Equations 
(8.5a-b) m Volume 1 represent, in vector form, the four governing difference equations for the two ADI 

sweeps for 2-D planar flow. The elements of the inviscid flux vectors E and F are given in Section 2.0 of 

Volume 1, and the elements of the viscous flux vectors E^, E^, etc., are given in Appendix A of Volume 

\i ■^ aco * 5 ' an coefficient matrices 5E/0Q, dE v JdQ, etc., are given in Section 5.0 of Volume 1. Using 
all of these equations, the differenced form of the energy equation for 2-D planar flow may be written for 
the two ADI sweeps as 


Sweep 1 (£ direction) 


A(T-Y)< + 


0, At 


(1 + 0 2 )A£ 

01 At 


0E 4 

A 

0Q 


AQ,_, + (2a - 1) 


(-1 


dE A 


3Q 


a \ n 


AQ* + (!-«)( 


0E/, 


8Q 


AQ, 


(+1 


/+! 


[(^-i + ftf&i aqL, - osl. + 2 4+y + .)Vaq; + (/.+ y + .)V + ,aq; +1 ] = 


(1+0 2 )2(A^ 

1 +0 2 + + 1 + fl 2 [ a {(^F,)4 + VfyU] 
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Sweep 2 (n direction) 


0 1 At 


A(£ ^ + (1 + 0 2 )A>j 
0 1 At 


A 

<3F 4 


8Q 


AQ"_, + (2a - 1) 


dti ^ AQ" + (I -«)| 


1 


3Q 


5F 4 

A 

<5Q 


aq: 


7+1 


(1 + 0 2 )2(AtiY 


[(7J_i + fj ) n gj-\&Qj~\ - ifj - 1 + 2 fj +fj+O n gj' A Qj +(■//+ fj+ 1) ■?;+! A 9/+i] 


A* 

A E t 

In the above equations, the subscripts / andy represent grid point indices in the l and 17 directions. For 
notational convenience, terms without an explicitly written i or j subsenpt are understood to be at i or j. 

On the left hand side, /is the coefficient of <3/^ (or 5/3*,. depending on the sweep) in the dtyJM) (or 
dl'yJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d/<3£ (or i)fd> j) 
in the dk v JdQ (or dl'yJdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 


Q = y [p pu pv E-rf 

The appropriate elements of the in viscid flux vectors are given by 

E 4 = y [ (E r + p)u£ x + ( Ef 4- p)v£y + E t 
F 4 = y [(£> + p)ur, x + (E r + p)vn y + £ r n,] 

The appropriate elements of the non-cross derivative viscous flux vectors are 

(E,^ = y C&rij + *> 2 )^ + ^ + *> 

+ y + -fir (£ + 

(Fk,) 4 = y yy | \.n x (^)r, + >^(v\] + 0* + V’lx'lyi™’)*, 

+ y [ 9 2 (v 2 )„ + + yr (»J 2 + 

And the appropriate elements of the cross derivative viscous flux vectors are 

(E „ 2 ) 4 = y yy [2^^^ + + ^x uli y, + V^) + ^y(>U v “ n + VV 


+ + njcW,) + PiyiPy uu r, + 9*%) + V 7 .7 
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( ^- 7 -srj 


2 f*( r lxtx uu S + *ly^y vv f) + '■ t lx(£x uu > + + Ar)y(£ x vU£ + Z y w^) 

+ W^<yWi { + e x w s ) 4- MyltyUUt + i x uv^) + -A- (r,J x + r, y S y )T> J 

The elements of the Jacobian coefficient matrix 3E/3Q for the inviscid terms in the energy equation 


are 


dE A 


dQ L 


~f\[ A ~ ~T7 ) Aitx+Al^ET Aty+A-Jr— Z t +fi(l+ dp 


dp J J ^*' j 'd{pu) J ^y- J 'd(pv) 
where y; = u£ x + v£, and f 2 = (E r + p)fp. 

The elements of the Jacobian coefficient matrix dE v I3Q for the viscous terms are 


dE 7 


where 


5(E^) 4 


dQ Re r 


dE. 


dQ 


41 


dE, 


dQ 


42 


A 

dE, 


dQ 


a o 


43 


dt 


(€) 


dQ ) 41 ^ V k ( V p) + 


dEi 


3Q 


’ 42 


d l u 

dt 


(p) + a *y dt (p) + a ° dz (a&) 




a XX — i^P + AZx + A l Zy 

a yy = P^x T (^A 1 T ^)Zy 
a Xy ~(P + tyZjcZy 


k , c 2 , c 2. 

* 0 = T^ + W 


The Jacobian coefficient matrices 3FJ3Q and d(F v )Jd Q have the same form as dEJdQ and 3(E V )JdQ 
but with £ replaced by r\. 1 

As an example of how these equations are translated into Fortran, consider the A (puff) term on the left 

hand side for the first sweep. This is the second element of Q, so using the second element in dEJdQ we 
get for the inviscid term 
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A(IV,I,NEN,NRU) = 


0 i(At),. 


B(IV,I,NEN,NRU) = -yy 
C(I V, I ,NEN,NRU) = 


( 1 + $2)A 
0,(At) ;j 


(1 +0 2 )A£ 

^(At),-,- 


( 1 + 0 2)A£ 


[(^‘T 


(2a- 1)< 


(«^ + v£ v ) 
+ V£y) 


dp 


- 5(pw) 

dp 


+ 


(u£ x + v£ y ) 


d(pu) 

dp 




‘,j ' 


d(pu) 


i+\J 1 


For the viscous terms on the left hand side, we use the second element in d(E Vi )JdQ, which is 


Re r 


dt 


( p ) + <x *y d% ( p ) + a ° dt ( d(pu) ) 


There are three terms in that element. Thus, in tum,/= <*JRe r , aJRe r , and <x 0 /Re r , and g - ujp, v/p, and 
dTld(pu). To add the viscous contribution to this part of the A coefficient submatnx, we therelore set 

0,( At) w 

A(IV,I,NEN,NRL) = A(1V,I,NEN,NRU) i 

(i + 0 2 )2(A^r/^ 

|[(««)«-U + («j«)/,y]( T )i_u + + T )/-i J + [( “o)/-i,y + 5(/9W) ) f _ u 

Similar equations may be written for the B and C coefficient submatrices. 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
energy equation for the two ADI sweeps is given by 18 

Sweep 1 (£ direction) 


0\At t 


3F S \ . I 3E s \ . „ J _ cr ‘S 


dV.c 

— a\r — 7 - I AO,’, j + (2a - 1 )( r ■—£- ] AQ< + (1 — »)[ r — 1 AQ, + 

3Q V /■ V /,M 


A(£r) ' + (1 + 0 2 )M 

J- + r t ffg*- [Aq‘_i - (r. iX i + 2 rJi + r, + i/*i)V A Q< + ( r J> + ^+i/-u>V.l A Q<+l] : 

(1 + d 2 )2(MY 1 


At 1 


l+ 0 2 r L-«v -- ■ -J ,+0 2 i{ <5 i[ r(E ^] + ^C r(F ^]} 

+ — ^ i K[r <E F 2 ) 5 ] + *„[' Tv 2 )s]}" - ^ i {*<[' ^ 


tn-1 Oo 


n - 1 
T 


Sweep 2 (rj direction) 


a 0, At ] 




ao 


AQ. n _i + (2a- 1) r 


y-1 


aFc \ a / ar 5 

— r- AQ; + {1 - a) [r — 

ao /, V 


aq 


■y+l 


y+i 


— y T + 2 rjfj + r J+l f J+1 )X A X + {r )h + r n\fj^\>X+\ A ty+i\ : 

(1 + 0 2 ) 2 ( Ar ,) 2 L 


A£ r 


18 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 
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where now 


A J 

Q = y[p P u pv pw £ r ] 


E s = y i(E T + p)uq x + (E r + p)v£ r + E t £,] 
'5 = y l(E T + P)m x + (Et + P) vt lr + E t >/,] 


(F ) 1 1 f ( 2 P +) ) r *2 

(E ^ )5 'T^“{ — ~ — R - 

+ y [d(v 2 + + t?(u 2 + w 2 /] + y 


+ 9 9 0 9 /> . 

y *e r ) 2 C «“ + «r( v ){] + (p + Wx^)! + >-Z r ~r (tS + Z x uv) 


%] + ^r(^ + ^)T f J 


(*■ r,)5 - J ^ ^ 2 ^Px( u ~)ri + > / 2 ( v ’ 2 ) f ;] + (p + ' i )>/x'7r( MV )^ + 2f l r ~J~ (V^ + »7 jc w ) 


(»? 2 + Vr)^| 


+ y C^(v 2 + w\ + J r (u 2 + w 2 )„] + ~£r(ril 

V + A ^r(Px vu n + r tr vv r ] ) + **lr T (%x u + A v ) r n 


a 1 1 r 

( E ^ 2 )5 = y y^ I 2 P(Zx*lx uu v + Zr*lr w n ) + *Zx(*lx uu v + *1 r^r,) 

+ PZ x (*lr vu n + nx^t, + 


2 

Pixi*! r% + + >bc W %) + P%r(>1r uu r, + 'Ix’^r, + f /r lvw '^) ~ 

-£-(Zxnx + ZAr)T v ] 

a 1 1 r 

( F ^)s = y I MlxZx**l + VrfrWj) + 2t 1x(Z x uu r + £ r «V { ) + + £,W { ) + ^ r y(vx u + nr v ) r s 

2 

.... i £ .... . t \ . / k . * .V s H’ 


2 

+ Wx (Zr vu l + tx n > + + mAZrUU{ + Z^ f + ZrWWf) - M>7r -y- 

-£rtoxZx + 1rZr)T s 1 


+ 


The elements of the Jacobian coefficient matrix dE/<5Q for the inviscid terms in the axisymmetric form 
of the energy equation are 


A 

0Ec 


dp 


dp 


A f2 ~~d^) / 2 ^ +/, d(^r f ^ r+fi 


dp 


dQ |_ \ vp j - - d( P u) 

where / = w£, + v£, and f 2 = (£> + p)jp. 


A 


dp 


d{pv) d(pw) 


*t +/i^ 


1 + 


dEr 


A A 


The elements of the Jacobian coefficient matrix dE v JdQ for the viscous terms are 

d ( dT \ 

0 as \ dE T ) 


Wvjs 

dQ ~ Re ' 


dE, 


dQ 


dQ 


dQ 


dQ 


where 
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“xx = (^A* + 2 Kx + 
a fr = m£x + ( 2 M + 

“zz = vZl + M^r 

“xr = (M + 2 Kx^r 


«o = £;(£ + & 


A A A A 

As in 2- D planar flow, the Jacobian coefficient matrices dF s /dQ and d(F Ki ) 5 /<3Q have the same form as 
dE 5 /dQ and d(E Kl ) 5 /dQ, but with f replaced by >/. 

Note that the equations for 2-D planar and axisymmetric flow are very similar. In the axisymmetric 
equations there are some additional terms involving the radius r in the viscous flux vectors, with corre- 
sponding terms in the Jacobian coefficient matrices. The radius r appears as an additional coefficient in 

A A A A A A 

front of the flux vectors E, E K , etc., and in front of the Jacobian coefficient matrices dE 5 /dQ, <?(E Vl )sldQ, 

etc. In addition, \jr appears in front of every term in the equation except the A E r terms. In PROTEUS, 
the Fortran variables are defined in such a way that, for many terms, the same coding can be used for both 
2-D planar and axisymmetric flow. Unfortunately, this may make some of the coding a little confusing. 
It is hoped that this detailed description, when compared with the source listing, will help make things clear. 

In COEFE, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second ADI sweep have exactly the same form as for the first sweep, but with £ replaced by r\. By 
defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow, 
and the radius r for axisymmetric flow. This adds the r in front of the Jacobian coefficient matrices for 
axisymmetric flow, but has no effect for 2-D planar flow. The 1/r coefficient in front of each term will be 

added later. In this section of code, the coefficient of A £ r (part of B(IV,I,NEN,NET)) is set equal to r, not 
1 as it should be. This will be corrected later. 
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The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 6.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
1/7, is temporarily redefined as rjJ before the COEF routines are called. This automatically accounts for 

the r coefficient in front of all the flux vectors in the source term. The 1 jr coefficient in front of each term 

* 

will be added later. This definition of JI adds an r in front of the A E}~ ] term that should not be there. This 
will also be corrected later. 


The coding for the source term for the second sweep, which consists only of A E' T , comes next. The 

definition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 

A 

1 fr coefficient where it should be added, and removes the r in front of the A E r terms. 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sw r eep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are w'ritten as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms. 

5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms containing derivatives in the specified direction. 
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Subroutine COEFX 


Called by 

Calls 

Purpose 

EXF.C 


Compute coefficients and source term for the ^momentum equation. 


Input 

ALPHA 

* ALPHA 1 , ALPHA 2 
DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DXI, DETA 

ETAX, ETAY, ETAT 

* I AX I 

I BASE, ISTEP 

* IEULER 
IS WEEP 

* ISWIRL 

* ITHIN 

IV 

II, 12 
JI 


METX, METY, METT 

MU, LA 

NEQ 

NPTS 

NR, NRU, NRV, NRW, NET 


NX \1 

P 

RAX 


+ RER 

RHO, U, V 
RHOL, UL, VL 


Spatial difTerence centering parameter a for the sweep direction. 

Spatial difference centering parameters ot, and a 2? for the £ and >7 
directions. 

Computational grid spacing in sweep direction. 

Derivatives dpjdp, dp/d(pu ) , dpld(pv), dpjd(pw ), and dpldE r . 

Pime step At. 

Computational grid spacing A£ and A rj. 

Metric coefficients >7,, *] y (or v\ r if axisymmetric), and >7,. 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the "vectorized" direction, 

Grid indices i and j, in the % and >7 directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, N . 

Array indices associated with the dependent variables />, pu , pv, 
pw, and E r . 

/Array index associated with the x-momentum equation. 

Static pressure p at time level n. 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Reference Reynolds number Re r . 

Static density p , and velocities u and v at time level n. 

Static density p, and velocities u and v from previous ADI sweep. 
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THX 


XIX, XIY, XIT 
Y 

Output 

A, B, C 

S 

Description 


Parameters B x , 9 2 , and 0 3 determining type of time differencing for 
the x-momentum equation. 

Metric coefficients (or <J r if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Coefficient submatrices A, B, and C at interior points (row 
NXM only). 

Source term subvector S at interior points (element NXM only). 


Subroutine COEFX computes the coefficients and source term for the ^-momentum equation, 
liquations (8.5a-b) in Volume 1 represent, in vector form, the four governing difference equations for the 

two ADI sweeps for 2-D planar flow. I he elements of the inviscid flux vectors E and F are given in Section 
2.0 ol Volume 1, and the elements of the viscous flux vectors E v , E v , etc., are given in Appendix A of 

Volume I. The Jacobian coefficient matrices dE/dQ, 3E v JdQ, etc., are given in Section 5.0 of Volume 1. 
Using all of these equations, the differenced form of the x-momentum equation for 2-D planar flow may 
be written for the two ADI sweeps as 19 


Sweep 1 (£ direction) 


a * ^ i At 

Mpu)i + 


(l +0 2 )A£ 


a \ n 

\ ** . 
A Q/-1 + (2a - 1)( 


A 

dQ 


n / a \ n 

dE 2 \ A. / 3E 2 

l AQ, .+(!-«) 2 


A * 

AQ, 


(+1 


i-t 


0, At 


(1+0 2 )2(A£) 
At 


d Q Ji \ /,+, 

[U-i + y/)V-|AQ*_, - + 2fi +f i+l ) n g-AQi + (fi + f i+x ) n gl ,AQ* +I ] = 

(*A + + T ~~ [SgCEyfr + * JFr,hT 


+ 


l+0 2 ■ -rv • \ + e 2 

(1 +0 3 )At ,a v , ,a v 0 3 A 


I + 


OAt r a a n r A A n ri- 1 

o ~ [<{<» V ^ + \( ry , h ] - TJX [ V E » i > 2 + + 


1+0 , 


■ A (pu) 


A vfl— 1 


Sweep 2 (f? direction) 


A (A)" + 


0] At 


J ' (1+0 2 )A V 
0, At 


dl\ 


dQ 


AQ;_j + (2a - 1)[ 


0F, 


'j - 1 


5Q A 


aq; + (i-«) 


aF, 


<?Q 


AQ; 


y+i 


y+i 


(1 +0 2 )2(A,r 

A(A)‘ 


[( A. + fif&wl - , - 4-i + Vi +y + iAAQ" + 


In the above equations, the subscripts / and y represent grid point indices in the £ and rj directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at / or j. 


19 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy E T would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only three elements. 
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On the left hand side, /is the coefficient of djd£ (or depending on the sweep) in the d¥ v JdQ (or 

d¥ y jd Q) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d/d^ (or d/(3>?) 

1 A A f A 

in the 0¥ v JdQ (or c¥ y JdQ) Jacobian coefficient matrix. 

The vector of dependent variables is 

Q = y[p pu P v E r\‘ 

The appropriate elements of the inviscid flux vectors arc given by 

K 2 = y [(pw 2 + p)l x + puviy + p«£ f ] 

A 1 2 

F 2 = y [(p« + P)n x + pw-’ly + />«>?,] 

The appropriate elements of the non-cross derivative viscous llux vectors are 

(ri',)2 = J-J- [>d«{ + + W + nZ y (i y U t + « x v e )j 

(F(')2 = y yy [2/n/ ^ + ^lMx u r, + VV + Wy (, ly u n + V I 

And the appropriate elements of the cross derivative viscous flux vectors are 

(b' 2 ) 2 = 7 77 Ifytx’lxVr, + j-ZMifr, + V*P + + 

(F j, r ^) 2 “ —j ~p~~ *"/ x i 1 P*ty ( s V W; "h 


The elements of the Jacobian coefficient matrix c)K/£Q for the inviscid icons in the x-momentum 
equation are 


0Y ± _ 

cQ 

where f — u£ x + 


dp dp dp dp 

7y ^ ~ l ‘f\ w + /i + “Zx + Tyy "x «{>. ( 777 Cx ('•/ , 


The elements of the Jacobian coefficient matrix dE,- /<3Q for the viscous tenns arc 


d(E„,) 2 

cQ 


A’c, 


<?Q 


21 


id) vi(!) 


where 


t,r 'h 1 

1 _ a J_l 

r u > 

i -a — i 

— 'i 

l pn i 

! ~ ~ *** a* ' 

V P > 

xv r 

v P ) 


/ 21 


a XX = ( 2 P + 2 )sx + pdy 
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a xy = (M + i)Z x S y 


The Jacobian coefficient matrices 5F 2 /<3Q and d(F Vl ) 2 ldQ have the same form as dE 2 jdQ and d(E v ) 2 ldQ, 
but with £ replaced by 

As an example of how these equations are translated into Fortran, consider the A (pujJ) term on the left 

A A A 

hand side for the first sweep. This is the second element of Q, so using the second element in dE 2 /<3Q, and 
including the A(pw)* term, we get for the inviscid term 


01 (At), j 

A(IVJ,NXM,NRU)- Tr ^(-«) 


+ ( U Sx + V ty)i-\J + (uSx)i-],j + 


dp 


d(pu) 


0 i(Ar) u 

B(IY,I,NXM.NRU)- Tn ^ r (2 8 -1) 

0,(Ar) f 

C(IV.I,NXM.NRU)- T7T ^ r (l-«) 


«A./ + + <Ou + 1 { 


U 


/-by 

+ 1 


(^f)f+l,y "b ~b v £y)/+i,/ T + 


0(p«) 


For the viscous terms on the left hand side, we use the second element in 3(E„ ) 2 /3Q, which is 


Thus f — ct x JRe r and g= 1/p. 
we therefore set 


1 


U) 


Re r xx d Z 

To add the viscous contribution to this part of the A coefficient submatrix, 


A(IV,I,NXM,NRU) = A(IV,I,NXM,NRU) 


(1+0 2 )2(A tfRe r 


[( a xx)f— l.y + ( a xx)i,yJ^ p )/_] y 


Similar equations may be written for the B and C coefficient submatrices. 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
x-momcntum equation for the two ADI sweeps is given by 20 

Sweep 1 (<* direction) 


A(pu) t + 


9 jAt 


l 


<1+*2>A{ ' 


aE 2 

dQ 


, dE 2 \ a. / dE 2 

AQj_j + (2a — 1)( r—£- AQ, + (1 - ol) [r —± 

dQ Jt \ d <* 


AQ,. 


‘ M t T [V 1/-1 + + 2r,-/ + / + ,)VAQ; + (rj, + r M UTCA] = 

7T*7 T IV Ej) + <V' fcf + TTeT T H r Vvfr] + V rf 

(1 + 0 3 )At , 




1 4- 


f {V < E r 2 h] + V <•>>]} - T+77 t- K' (EkP*] + *4> (F^r + TT^7 A( * ur ' 


20 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 
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Sweep 2 (>? direction) 


A n Q\ At ] 

+ n -i- oSa*, T 


<?F, 




(1 + 9 2 ) Av 

1 

(i + e 2 n (s n ) 2 

<S(pu) 

where now 


- =<1 r — f- ] AQ;,, 4- (2x - 1)[ r ~y J AQ," + (1 - *)^r ] AQ^, 


ar 2 

eo ' V *Q Jj V A>, 

f [<o-,/,-. + ~ (Tj-i/j-i + 2r jfj + o>i^i)V a «" + M = 


A J y 

Q = y[p P« P v £ r] 

E 2 = y [(p!V 2 + p){ x + puv£ r + pu£ t ~] 

A 1 2 

F 2 = y [(pu + />)>f x + puv*\ r + 1 oUr hl 


1 

1 

J 

Re r 

1 

1 

J 

Re r 

1 


J " 

Re r \ 

1 

J_i 

J ■ 

Re r l 


(Fp 2 )2 = y yy + ^x\_<ix u n + y 9 r M,,] + ^tor u r, + »?^)j 

(F> 2 ) 2 = y yy {^^“5 + + y Zr( n ’) J + M»7 r (^ w j + £x v {)} 


The elements of the Jacobian coefficient matrix <3E/dQ for the inviscid terms in the axisymmetric form 
of the energy equation are 


dE n 


dQ 


dp uf] Z' + A + ui * + d(pu) ^ w ^ + d(pv) ^ d(pw) Sjc <?£■ 


d P t t 

ar? ** 


where / — 4- v£ r . 


The elements of the Jacobian coefficient matrix dE v JdQ for the viscous terms are 


where 


3<E v y , 

( ^ 

A . 

JLf 

_LA B _a_i 


dQ 

Re r 

\ dQ 

J 2 ' 

aj V 

P ) xr dl ' 

^ p / 

( 

dE Vi 

\ _ 

d 

(JL 

A 5 , 


l 

A 

dQ 

A." 

«xx ^ 

V P 

H 

3 

1 

l p ) 


“xx = ( 2 P + + P^r 

1 *xr ~ (P ^-)^x^r 
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' __ L p £ 

a xr - y S. t s r 

As in 2-D planar flow, the Jacobian coefficient matrices d¥ 2 /dQ and 8(¥ v ) 2 ldQ have the same form as 
^E 2 /dQ and d(K Vi ) 2 ldi), but with * replaced by rj. 

Note that the equations for 2*1) planar and axisymmetric flow are very similar. In the axisymmetric 
equations there are some additional terms involving the radius r in the viscous flux vectors, with corre- 
sponding terms in the Jacobian coefficient matrices. The radius r appears as an additional coefficient in 

front of the flux vectors F, K y etc., and in front of the Jacobian coefficient matrices dK 2 /0Q t £(K k , 
etc. In addition, 1/r appears in front of every 7 tenn m the equation except the A (pu) tenns. In PROFIT S, 
the Fortran variables are defined in such a way that, for many terms, the same coding can be used for both 
2-D planar and axisymmetric flow. Unfortunately, this may make some of the coding a little confusing. 
It is hoped that this detailed description, when compared with the source listing, will help make things clear. 

In COFJ X, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second ADI sweep have exactly the same form as for the first sweep, but with f replaced by t]. By 
defining DFI , Ml I X, Ml: 1 \ , mid MF 1 Y as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow, 
and the radius r lor axisymmetric flow. This adds the r in front of the Jacobian coefficient matrices for 
axisymmetric flow, but has no eflect for 2-D planar flow. The 1/r coefficient in front of each term will be 
added later. In this section of code, the coefficient of A(pu) (part of B(IV,I,NXM,NRL ! )) is set equal to r, 
not 1 as it should be. This will be corrected later. 

I he source tenn, or right hand side, for the first sweep is defined next. The difference fonnulas used to 
compute the source tenn are the same as those used for the implicit tenns. These formulas are presented 
in Section 6.0 of Volume l. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
1/*/, is temporarily redefined as rfj before the COI F routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source tenn. The 1 jr coefficient in front of each tenn 
will be added later. This definition of Jl adds an r in front of the A(pu) n 1 term that should not be there. 
This will also be corrected later. 

I he coding for the source term for the second sweep, which consists only of A (pu)\ comes next. The 
definition of JI also adds an r in front of tills tenn that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 
1/r coefficient where it should be added, and removes the r in front of the A (pu) terms. 

Remarks 

T 1 his subroutine uses one-dimensional addressing of two-dimensional arrays, as described ui Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., Vectorized'') direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts arc written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts arc written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). I he third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. I he coding of the extra coefficients and source tenns in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Fulcr option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 
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5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine COEFY 

Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the y or r-momentum 
equation. 

Input 



ALPHA 


Spatial difference centering parameter a for the sweep direction. 


* ALPHA!, ALPHA2 Spatial difference centering parameters a, and a 2 , for the £ and t] 

directions. 


DLL 


DPDRFIO, DPDRL, DPDRV, 
DPDRW, DPDET 

DIAL 


DXI, DLL A 
LTAX, i: 1 AY, ETAT 

♦ IAXI 


I BASH, ISTEP 


* IEULER 
I SWEEP 
+ ISWIRL 
+ ITHIN 
IV 

II, 12 

JI 


METX, METY, METT 


\1U, LA 

neq 

N PIS 

NR, NRU, NRV, NRW, NET 


NYM 


P 

RAX 

♦ RER 

RHO, U, V, W 


Computational grid spacing in sweep direction. 

Derivatives dpi dp, dpjd(pu), dpld(pv), dpjd(pw), and dpjdE r . 

l ime step At. 

Computational grid spacing A£ and Arj. 

Metric coefficients rj x , yj y (or vj r if axisymmetric), and ?/,. 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the 'vectorized" direction, i v . 

Grid indices Land y, in the £ and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 1 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to .x, y (or r if axisymmetric), and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity A at time level n . 

Number of coupled equations being solved, N . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and E T . 

Array index associated with the j’-momentum (or r-momentum if 
axisymmetric) equation. 

Static pressure p at time level n. 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Reference Reynolds number Re r 

Static density p, and velocities u, v, and w, at time level n . 
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RHOL, UL, VL 
♦ THY 

XIX, XIY, XIT 
Y 

Output 

A, B, C 

S 


Static density p, and velocities u and v from previous ADI sweep. 

Parameters 0,, 0 2 , and 0 3 determining type of time differencing for 
the ^'-momentum equation. 

Metric coefficients «*„ ^ (or £ r if axisymmetric), and l r 
Radial coordinate r for axisymmetric flow 7 . 


Coefficient submatrices A, B, and C at interior points (row 
NYM only). 

Source term subvector S at interior points (element NY M only). 


Description 

Subroutine COETY computes the coefficients and source term for the ^’-momentum equation for 2-D 
planar flow, or the r-momentum equation for axisymmetric flow. Equations (8.5a-b) in Volume repre- 
sent, in vector fonn, the four governing difference equations for the two ADI sweeps for ~-D planar flow. 

The elements of the inviscid flux vectors E and F are given in Section 2.0 of Volume 1 , and the elements 
of the viscous flux vectors E K( , E Kj , etc., are given in Appendix A of Volume 1. The Jacobian coefficient 

matrices <9E/dQ, dkyJdQ, etc., are given in Section 5.0 of Volume 1 Using all of these equations, the 
differenced fonn of the y-momentum equation for 2-D planar flow may be written for the two ADI sweeps 

as 21 


Sweep 1 (£ direction) 


A (/>v) f + 


0 j At 


*>y ^ 1 +( 2 ..,/ 4 Y«i + (i-.> 


dQ i- 


dQ 


[(^_J + ftfzl ,aq;_, - U_, + 2>j+>j +1 )Vaq‘ + U+ Ah)V + .aqJ +1 > 


(1 +0 2 )M 

0! At 

(1 + 0 2 )2(A£) : 

At (*jE 3 + *„F 3 ) + j AT 0 - [«S{(E^)3 + fyFV.b] 

h 



a 


+ ■ 


1+^2 
(1 + fl 3 )Ar 

1 


[<5j(E|/ 2 >3 + jyh] 


n 6 7 A t r a a t*” 1 ^2 * / A 

[<5{(E^)3 + 'VFy 2 ) 3 ] +i,o A(P V ) 


1 + 0 , 


1+09 


Sweep 2 (n direction) 


A (pv)7 + 


0 t At 


(1 + 02)Aij 
0] At 

(l+0 2 )2(Ai7) 2 

A(pv)* 


- a I 


El 

A 

dQ 


AQ?_, + (2a - 1) 


a \ n 

3F 3 


'j - 1 


dQ 


AQy +(!-«) 


a \ n 

8F, 


A 

dQ 


A „ 

AQ* 


7+1 


']+\ 


■ [(J5_! + fj ) n gj-\ AQ;_1 - (yj-l + 2// +fj+\?gjbQj + (fj + //+l)V+l AQ f+l] - 


21 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy E T would not appear as a dependent variable, and the Jacobian coefficient matrices would have 

only three elements. 
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In the above equations, the subscripts i and j represent grid point indices in the £ and tj directions. For 
notational convenience, terms without an explicitly written / or j subscript are understood to be at i or j. 

On the left hand side, / is the coefficient of djd* (or djdr), depending on the sweep) in the dE v J3Q (or 
dFV,/dQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following djd^ (or <?/<?>/) 
in the dE v JdQ (or dV y JdQ) Jacobian coefficient matrix. 

The vector of dependent variables is 

Q = yl> P u P v Erf 

The appropriate elements of the inviscid flux vectors are given by 

e 3 = y C pw£ x + (pv 2 +p)^ + pv£,] 

F 3 = -jlpwi x + (pv + + 

The appropriate elements of the non-cross derivative viscous flux vectors are 

( F ^)3 ~ ~J + ^y^>x u \ + + ^xi^y u l + ^x v ^)] 

( F ^,)3 = y yy [ 2 P1y v n + 2 »1y(*lx u v + 1y v r,) + P^xily^ + > 7 *^)] 

And the appropriate elements of the cross derivative viscous flux vectors are 

A 1 j 

( e ^3 = y yy t 2 pZyiy v r, + Hy(*t x u r, + n y \) + + ix^Xl 

A J j 

( f p 2 )3 = y yy l 2 m y i y V{ + + ^v { ) + pv x (Z y u i + ^)] 


The elements of the Jacobian coefficient matrix dE/dQ for the inviscid terms in the ^-momentum 
equation are 


A 



v«x + 


d(pu) 


Zy 


£t +/l + v (y + 


dp 

d(pv) 


ty 


dp 

dE r 



where / = w/ + v/. 


I he elements of the Jacobian coefficient matrix dE v IdQ for the viscous terms are 


where 
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7 x>’ ~ (i ^ 


CL 


yy 


a 

9S X 


+ (2ju + /) 


i 


^ V 


The Jacobian coefficient matrices dVJd 
but with c replaced by >]■ 


Q and d(i\- t ) 3 /dQ have the same form as cKJPQ and P(K r[ ) 3 /cQ, 


As an example of how these equations are translated into Fortran, consider the A (pi//./) term on the left 

hand side for the first sweep. This is the second element ol Q, so using the second element in < T. ( /<;Q, we 
get for the inviscid term 


A ( 1 V , I , N Y \1 , N R l - ) = Ti~ , 7T T T T ( ~») 


B(IV,I,NYM,NRU) = 
C(IV,I,NYM,NR U) = 


(1 + 0~,)A* 
O^Ar^j 


( 1 T ^i)Ai 

^ \{Ar) i%J 

( 1 + O 2 ) As 


-a* - 1 ) 


/ c p 


1 1 - «) 




For the viscous terms on the left hand side, we use the second clement in ^(E^p/rQ. which is 

1 JL(±\ 

Re r * xy d{ \ 9 } 

Thus f — a I Re, and g = 1 jp. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 

A(IVd,NYM,NRl ) — A(IV,I,NYM,NRL) 7 — l(*.K V h-\ j f ( ,x xykj1\ Tri } ; . , 

(i -f 0 1 )2(A^fRe r ' ' * V ' /l ~ X ' J 

Similar equations may be written for the B and C coefficient submatrices. 

| he equations for a xi symmetric flow are developed in Appendix B of Volume 1. 1 he axisymmetric 

'-momentum equation for the two ADI sweeps is given by 2 


22 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 
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Sweep 1 (£ direction) 


A(pv), + 


<i+0 2 >^ r 

0,At 


dE 


dE x 


dE* 


(i +e 2 ) 2(A?r 


-*l r ^T I AQi-i + (2* - 1)1 r — I AQ, + (l - «)[ r — ) AQ J+1 

V A V 50 / 1+1 

T [V 1 - 1 /-I + r ,/,)V-i A Q,-i - + 2rJ t + r i+ \f M ) n g"\Q, + (r,f, + '■, +1 /. 1 )V»i a Q'*i] 


0A~ 1 


1 +e 7 ' 


^H 3 <?(H k ) 3 

dQ dQ 


AO,-- 


dr 1 


1 + 6 , 


T [^Ej) + ^Fj) + H,]" 


At 1 


1 + 0 2 
0,At 


T { 6 i[ r ^> 3 ] + *1' (Fv,) 3 ] + (»k) 3 } 


" , (1 + * 3 )*t 1 


1 + 0 , 




- TT^ T M' <^ 2 >J + <5^ (h 2 h]f + ~r+9^ A ^ k ' r 1 

Sweep 2 direction) 


A „ 0iAt 1 

a ^ + oT^t 

At 


ao 


j - 1 


~ a l r TT ) + (2a - 1)( r ) AQ* + (1 - a)( r J AQ^, 

dQ 


dQ 


y+j 


(i + 0 2 )2(A^r 

where now 


T [(O-iA-i + r jfj)X-^U - (fj-y/j-i + lr ,f, + + irjfj + r i + , ! ) n g y v 1 AQ" + ,] - 


Q = ~J \p pu pv pw E r ] 


e 3 = y [p^j + (pv 2 +/>)£ r + pv£,] 

A J 2 

F 3 =-7 [p«v»/ x + (pv + pK + pVf/ f ] 


( E ^,)3 


1 

. 1 f 

J 

Re, 1 

1 

1 f 

J 

Re r 1 

1 

1 h 

" J 

Re r r 

1 

_j_; 2 

■ J 

Re r l 2 


1 1 


7 { 2 Mrtr v > + h b ^ w f + T W"){] + M x (tr u > + ^)} 


H3 = -j- ( — /> — pw 2 ) 


(Hp) 3 - y | — 2p 7- - 2(^u, + + -p [£ r (rv) { + >/ r (rv)^]j 

A A 

The H and H y terms, which do not appear in the 2-D planar form of the equations, result from the non- 
conservative form of the axisymmetric equations. 
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The elements of the Jacobian coefficient matrix dE/dQ for the inviscid terms in the axisymmetric form 
of the energy equation are 


3E-> 


do dp dp dp dp „ 

+ d( pU ) Sr+fl+ v fr+ d{pv) a(pw) ir ~dE^^ r 


d Q 

where fa = u£ x + v^ r . 

The elements of the Jacobian coefficient matrix dE v JdQ for the viscous terms are 


where 


1 

( ^ 

\ . 

3 | 

r -M 

a - 2-1 

' 1 ' 

) + ,< _L . 

A 

dQ 

Re, 

\ dQ 

J ®*r 

/ 3I 

d{ ' 

V P ) 

" 5 \ ' 

, P , 

1 + p '( 

( 

dE V{ 

\ 

d 


d i 

fJL 

)-*■£ 

{ 

A 

dQ 


• *xr d £ 

VP/ 

di 1 

l P 


<x xr — (p. + A)£ x £ r 

«„ = ptl + (2p + A)g 

< = it2 
a rr r 

A A A A 

As in 2-D planar flow, the Jacobian coefficient matrices dFJdQ and d(F Ki ) 3 /5Q have the same form as 
dE 3 /5Q and 5(E^) 3 /0Q, but with £ replaced by rj. 


A A 


The elements of the Jacobian coefficient matrix dH/dQ are 


dih 

A 

8Q 


dp , 2 

— + w 

dp 


dp 


d(pu) 


dp_ 

d(py) 


dp dp 

— 2w — ■ 


d(pw) 


dE-r 


The elements of the Jacobian coefficient matrix dHy/dQ are 


where 


d(H „) 3 

A 

dQ 


Re r 


d n v 

A 

8Q 


31 


5H, 


dQ 


32 


d H. 


dQ 


0 0 


33 


dH. 


dQ 


-«'-k(rh*'-k(7) + h *-k(T) 


31 




3U y 

A 

dQ 


+ [2 m + ;.(*/{ + if/-,)] + 
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^7 



Note that, except for the additional H and H ; terms, the equations for 2-D planar and axi symmetric flow 
arc very similar. In the axisymmctric equations there arc some additional terms involving the radius r in 
the viscous flux vectors, with corresponding terms in the Jacobian coefficient matrices. The radius r appears 

as an additional coefficient in front of the flux vectors E, E K etc., and in front of the Jacobian coefficient 

matrices <)E 3 /^Q, r(E ^) 3 /(5Q f etc. In addition, 1 jr appears in front of even 7 term in the equation except the 
Mb' 1 ') temis. In PRO iTLS, the Fortran variables are defined in such a way that, for many terms, the same 
coding can be used for both 2-D planar and axisymmctric flow. Unfortunately, this may make some of the 
coding a little confusing. It is hoped that this detailed description, when compared with the source listing, 
will help make things clear. 

In COIT Y, the coefficients of the left hand side, or implicit, terms are defined first. With the exception 

of the II and H. terms, which only appear in the first ADI sweep, the implicit terms for the second sweep 
have exactly the same form as for the first sweep, but with replaced by rf. By defining DTI NIF'TX 
NITTY, and MI TT as the grid spacing and metric coefficients in the sweep direction, the same coding can 
be used for both sweeps. I he variable RAX is equal to 1 for 2-D planar flow, and the radius r for 
axisymmctric flow. This adds the r in front of the Jacobian coefficient matrices for axisymmctric flow, but 
has no effect for 2-D planar flow. The l/r coefficient in front of each term will be added later. In this 
section of code, the coefficient of A(pV) (part of B(IV,1,NY\1NRV)) is set equal to r, not 1 as it should 
be. 1 his will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 6.0 of Volume 1. Tor axisymmctric flow, the Fortran variable JI, which is normally defined as 
1/A is temporarily redefined as rjJ before the COTF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The l/r coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A(pv) n 1 term that should not be there. 
This will also be corrected later. 

I he coding for the source tenn for the second sweep, which consists only of A(pi j\ comes next. The 
definition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmctric flow, the entire equation is divided by the local radius r. This adds the 
l/r coefficient where it should be added, and removes the r in front of the A(pv) terms. 

Remarks 


1 This subroutine uses one -dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.c., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). Tor sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmctric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axi symmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Fuler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 
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5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine COEFZ 

Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the swirl momentum 
equation. 

Input 



ALPHA 


Spatial difference centering parameter a for the sweep direction. 

* ALPIIA1, ALPHA2 

Spatial difference centering parameters a, and a 2 , for the £ and t] 
directions. 

DEL 


Computational grid spacing in sweep direction. 

DIAL 


l ime step At. 

DXI, DE I A 


Computational grid spacing A£ and A*/. 

E l AX, ETAY, ETAT 

Metric coefficients rj x , rj y (or up if axisymmetric) , and rf r 

IBASE, ISTEP 

Base index and multiplication factor used in computing one- 
dimcnsional index for two-dimensional array. 

♦ IEULER 


Flag for Euler calculation. 

ISWEEP 


Current ADI sweep number. 

ITHIN 


Flags for thin-layer option. 

IV 


Index in the 'Vectorized" direction, 

11, 12 


Grid mdices i and y, in the £ and rj directions. 

JI 


Inverse Jacobian of the nonorthogonal grid transformation times 
the radius, rJ~K 

METX, METY, METT 

Derivatives of sweep direction computational coordinate with re- 
spect to jc, r, and t. 

MU 


Effective coefficient of viscosity p at time level n. 

\EQ 


Number of coupled equations being solved, jV . 

NPTS 


Number of grid points in the sweep direction, N. 

NR, NRL, NRV, NRW, NET Array indices associated with the dependent variables p, pw, pv, 

pw, and E t . 

NZM 


.Array index associated with the swirl momentum equation. 

RAX 


The local radius r. 

RER 


Reference Reynolds number Re,. 

RHO, U, V, W 

Static density p, and velocities u, v, and w, at time level n. 

RHOL, WL 


Static density p and velocity w from previous ADI sweep. 

THZ 


Parameters 8 lt 0 2 , and 0 3 determining type of time differencing for 
the swirl momentum equation. 

XIX, XIY, XIT 

Metric coefficients (or £ r if axisymmetric), and £ r 

Y 


Radial coordinate r. 
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Output 

A B c Coefficient submatrices A, B, and C at interior points (row NZNl 

only). 

S Source term subvector S at interior points (element NZM only). 

Description 

Subroutine COFFZ computes the coefficients and source term for the swirl momentum equation, which 
is only valid in axisymmctric flow. The equations for axisymmetric flow are developed in Appendix B of 
Volume 1. The swirl momentum equation for the two ADI sweeps is given by 23 

Sweep 1 ( J; direction) 


A(/>u) + 


*|A- 1 


(1 + e 2 )±i r 

0 j At 

(1 + 0 2 ) 2(AJ) 2 




dQ h 


AQ f _! + (2a-l) ' 




dQ 


* . / dE 4 . 

AO, +('-=<) r — — AQ, v1 

V W /-I 


•F [('ViZ-l + i + 2 r ,f, + r M/M WQ, + ( r ,f, + r,>i/:>i)V*lAQ„i] 


P^r , 

1 +0 2 r 


an 4 a(M^) 4 

dQ SQ 


A q; = _ i- [<5 { (r E„) + 6„(r F 4 > + ««]" + yyV T fa[ r ^ CV,)*] + <>■ vh} 


1 + &2 

° -4 {*<[' ^) 4 ] + <5,p <Fe 2 ) 4 ]} n - T fc[ r <^>] + *4/ dV,)*]}" ‘ + T^T 


Sweep 2 (rj direction) 


A0uw)7 + 




(1 + 0 2 )A>? r 

0,At 
(1 + 0 2 ) 


d? A 


dQ 


AQ" , + (2*-!) r 


j \ 


dQ 




dQ 


A Q n 


■j -*- 1 




T 1 + I “ (0-l/y-l + 2r y/ + r j+l f j+ i) n gj^j + <0/ + ''; + l//*l>V*l A ^l] “ 


A(/ow) 


In the above equations, the subscripts i and j represent grid point indices m the £ and >/ directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at i oij. 

On the left hand side, /is the coefficient of d/5£ (or d/dy, depending on the sweep) in the dE V[ jdQ (or 
SFyJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d/dZ (or djdf,) 
in the dfcyJdQ (or d¥ v JdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 


Q = -j[p pu pv pw E T f 


1 he appropriate elements of the inviscid flux vectors are given by 


23 These equations are written assuming the energy equation is being solved For a constant stagnation enthalpy case 
the total energy E T would not appear as a dependent variable, and the Jacobian coefficient matrices would ha e 
only four elements. 
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A J 

E 4 = y ipuwZx + P™Zr + P w £d 

A J 

E 4 = ~J Lpuwrjx + pvwtj r + pvvijJ 

The appropriate elements of the non-cross derivative viscous flux vectors are 

(E^ 4 = y yy (pZ 2 x w, + n£w ( ) 

(E^) 4 = y yy {nnlw n + A t»fr w„) 

And the appropriate elements of the cross derivative viscous flux vectors are 

A 11/ 

( E J / 2 ) 4 = y y — {Pix*lx w r, + PtrlrK’n ~ P^r JT ) 

A 11/ 

( f ^)4 = y yy ( M x Zx w s + M r tr w s -^y) 

The extra terms resulting from the non-conservative form of the axisymmetric equations are 

A ] 

H 4 = — P VW 

(H^ = y yy + 7,%) -My] 


The elements of the Jacobian coefficient matrix dE/dQ for the inviscid terms in the 
equation are 


r-momentum 


aE 4 

— —=[~ w f\ ”t r Z t +f\ 0] 

dQ 


where / = + v£ r . 


The elements of the Jacobian coefficient matrix dE v jdQ for the viscous terms 


are 


^(E(/,)4 

A 

SQ 


Re r 


dE L 


dQ 


41 


0 0 ’“Mr) 0 


where 


A 

dE, 


3Q 


) d$ ( p ) 

' 4 1 


a z? — P%x T P^ r 


bu r wft h° ^ 1 tep laccci 1 by n 1 matnCCS ^*^Q and <3(F Vl )JdQ have the same form as dEJdQ and 5(E Vj )JdQ, 
The elements of the Jacobian coefficient matrix <5H/<3Q are 
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= [ — vw 0 w v 0] 


<3H 4 

A 

8Q 


The elements of the Jacobian coefficient matrix dllyjdQ are 


where 


3(Hj/) 4 

A 

dQ 





44 


As an example of how these equations are translated into Fortran, consider the A(pvjJ) term on the left 
hand side for the first sweep. This is the third element of Q, so using the third element in dFJdQ, and in- 
cluding the contribution from the third element of <3H 4 /<3Q, we get for the inviscid term 


A(IV,I,NZM,NRV) 

B(IV,I,NZM,NRV) 


C(IV,I,NZM,NRV) 


0i (At),- , i 

1 ,, nr/ ,, , . °i( At )u 1 

(1 + 0 2 )A^ r i,j 1 ) [(nv W/,y]+ ]+02 r u W U 

&[(& r )i i 1 

(i + 0 2 )a^ ^7 (1 “ a)[(nv ^ ) '+ , .i ] 


For the A (pvjf) term, there are no viscous terms on the left hand side. 

In COEFZ, the coefficients of the left hand side, or implicit, terms are defmed first. With the exception 

of the H and H y terms, which only appear in the first ADI sweep, the implicit terms for the second sweep 
have exactly the same form as for the first sweep, but with £ replaced by rj. By defining DEL, ME IX, 
METY, and METT as the grid spacing and metric coefficients in the sw r cep direction, the same coding can 
be used for both sweeps. Since COEFZ is only used in axisymmetric flow, the variable RAX is equal to 
the radius r. This adds the r in front of the Jacobian coefficient matrices. The 1 jr coefficient in front of 
each term will be added later. In this section of code, the coefficient of A(pvv) (part of B(IV,I,NZM,NRW)) 
is set equal to r, not 1 as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 6.0 of Volume 1. For axisymmetric flow r , the Fortran variable JI, which is normally defmed as 
1/7, is temporarily redefmed as r\J before the COEF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The^ 1/r coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A(pw) n ~ l term that should not be there. 
This will also be corrected later. 

The coding for the source term for the second sw r eep, which consists only of A(pw) , comes next. The 
definition of JI also adds an r in front of this term that should not be there. 
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And finally, the entire equation is divided by the local radius r. This adds the \jr coefficient where it 

should be added, and removes the r in front of the A(pW) terms. 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. I he subscripts on the fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction, for sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. Ihe coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine CONV 

Called by Calls Purpose 


MAIN 


ISAMAX Test computed flow field for convergence. 


CHGMAX 

DUMMY 
+ EPS 

♦ GAMR 

♦ IAV2E, IAV4E 

♦ 1CTEST 

♦ IHSTAG 
+ ISWIRL 

IT 

NEQ 

♦ NITAVG 

♦ NOUT 

NR, NRU, NRV, NRW, NET 
NTOTP 

♦ N1.N2 
RESAVG 
RESL2 
RES MAX 

RGAS 

RIIO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 


Maximum change in absolute value of the dependent variables 
from time level n - 1 to n (or over the previous NITAVG - 1 
time steps if ICTEST = 2), AQ majl . 

A two-dimensional scratch array. 

Convergence level to be reached, e. 

Reference ratio of specific heats, y,. 

Flags for second- and fourth-order explicit implicit artificial 
viscosity. 

Flag for convergence criteria to be used. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

Number of coupled equations being solved, N eq . 

Number of time steps in moving average convergence test. 

Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and E t . 

Cray PARAMETER specifying the storage required for a full 
two-dimensional array (i.e., NIP x N2P). 

Number of grid points and N 2 , in the ^ and directions. 

The average absolute value of the residual at time level n, R„, r 

The /-2 norm of the residual at time level n, R l2 - 

The maximum absolute value of the residual at time level n, 

R„„- 

Gas constant R. 

Static density p, velocities «, v, and w, and total energy E T at time 
level n + 1 . 

Static density p, velocities u, v, and w, and total energy E T at time 
level n. 


Output 


CHGAVG 


CHGMAX 


Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ avr 

Maximum change in absolute value of the dependent variables 
from time level n to n + 1 (or over the previous NITAVG time 
steps if ICTEST = 2), AQ m „. 
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ICONV 


Convergence flag; 1 if converged, 0 if not. 


Description 


Subroutine CONV checks the computed flow field for convergence. Convergence may be based on: ( 1) 
the absolute value of the maximum change in the dependent variables over the previous time step; (2) the 
absolute value of the maximum change in the dependent variables, averaged over the last NITAVG time 
steps; (3) the norm of the residual for each equation; (4) the average residual for each equation; or (5) 
the maximum residual for each equation. These parameters are defined in Section 4.1.5 of Volume 2. 

The convergence criteria to be used and the level to be reached are set by the input parameters ICTEST 
and IPS. leach dependent variable or equation is checked separately, and convergence is declared when the 
specified level is reached for all of the variables or equations. The same criteria is used for each one, but 
different levels may be specified. 

Subroutine CONV first computes AQ m „ x , the absolute value of the maximum change in each dependent 
variable over all the grid points for the most recent time step. These values are stored in 
(II ( i \ I A X ( 1 Y A R , 1 ) , where IVAR varies from 1 to NEQ, the number of dependent variables. If 
IC I EST = 2 (the so-called "moving average" convergence test), CHG\!AX(IVAR,2) contains the maxi- 
mum change for the previous time step, etc. 

Then, depending on the value of IC'I'EST, the chosen convergence criteria is compared with the level 
to be reached for each dependent variable or equation, and a flag is set if' the calculation is converged. 

Remarks 

1. l or IC I EST = 1 or 2,_the change in E r is divided by /?/(-/, - 1) + 1/2. I'his is equivalent to dividing 

the dimensional value E T by 

p r RT r Pr u} 
t r = — H — 


This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. for IC I hS I = 1 or 2, the convergence test is based on (or includes) the change in dependent variables 
trom time level n .to n + 1. For ICTEST = 3, 4, or 5, convergence is based on the residual at time level 
n, not n + 1. This is because the residuals at time level rx + 1 are not computed until the marching step 
trom n + 1 to n T 2 is taken. 

3. l or cases run with artificial viscosity, the residuals are computed and printed both with and without the 
artificial viscosity terms. This may provide some estimate of the overall error in the solution introduced 
by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity terms 
included. 

4. The Cray BLAS routine ISAMAX is used in computing the absolute value of the maximum change 
in dependent variables. 

5. I he scratch array DUMMY, from the common block DUMMY1, is used to store the values of the 
change in dependent variables for use by ISAMAX. 

6. A warning message is generated if an illegal convergence criteria is specified. ICTEST is reset to 3 
(convergence based on the U, norm of the residual), and the calculation will continue. 
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Subroutine CUBIC (IDIR, T,G, NOLD, TINT, GINT) 

Called by 

Calls 

Purpose 

PAK 


Interpolation using Ferguson's parametric cubic. 


Input 


G 


I DIR 


II, 12 

NOLD 


+ Nl, N2 
T 

TINT 


A two-dimensional array containing NOLD1 x NOLD2 values 
of the function g(/) to be interpolated. 

Direction flag; 1 if first subscript in G varies, 2 if second subscript 
varies. 

Grid indices i and j\ in the £ and >7 directions. 

Number of values in direction IDIR in array G (i.e., NOLD1 or 
NOLD2.) 

Number of grid points N l and jV 2 , in the £ and rj directions. 

A one -dimensional array containing NOLD values of the inde- 
pendent variable t. 

A one-dimensional array containing Nl or N2 (depending on 
IDIR) values of the independent variable t = t in{ at which in- 
terpolated values g mt = g{t m ,) are desired. 


Output 

GINT 


A one-dimensional array containing NT or N2 (depending on 
IDIR) interpolated values g mt = g(t int )- 


Description 

Subroutine CUBIC performs interpolation using Ferguson's parametric cubic polynomial (Faux and 
Pratt, 1979). Given the function g(t) and a value t in „ CUBIC computes g, nt = g(t,J. 

The function g(t) is specified by the Fortran arrays G and T. For a general value t, let 


where t u < t < t d . (I.e., t u and t d are the two elements of the array T that bracket /.) 
Between t u and assume g can be described by a cubic polynomial in t f , as follows: 

g — + a 2 l f+ a 3 l f + a 4 l f 


Differentiating, 


ae ■> 

g' = — = a 2 + 2 a 3 tj-+ 3a A ijr 

Noting that t f = 0 at t = f„, and 1 at t = t d , we get 
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Solving for a, through a it 


Su = a \ 

g'u = a 2 

Sd = a 1 + a 2 + a 3 + a 4 
g’d = a 2 + ^3 + 3a 4 


a i 8u 

a 2=g'u 

a 3 = 3(gd - 8u) - 2 s'u -g'd 
a 4 = 2 (g u - 8d) + g'u +g'd 

Plugging these into the cubic polynomial for / and rearranging, 

g =gu ( 1 - 3 '/ + 2t f) + - 2tj) 

+ <?u ('/“ 2 tf + f/) + g' d ( - f/ + fy 3 ) 

This is the form of the equation used to compute g mV 

Remarks 

1. At interior points in the array g, the derivatives g[ and g d are computed using a second-order central 
difference formula. At the end points, second-order one-sided difference formulas are used. 

2. The fortran variable TINT is actually a one-dimensional array containing A', or A r 2 input values of 

Similarly, GINT is a one-dimensional array containing A r 5 or N 2 output values of g tnr 

3. The Fortran array G that specifies the input values of#(f) is actually a two-dimensional array. Within 
CUBIC, however, only one of the subscripts varies. The input flag IDIR specifies which one. 
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Subroutine EQSTAT (ICALL) 

Called by 

Calls 

Purpose 

BVUP 

F.XEC 

INITC 

MAIN 


Use equation of state to compute pressure, temperature, and their de- 
rivatives with respect to the dependent variables. 


Input 


CP, cv 

* HSTAG 

IBASE, I STEP 
ICALL 

* I HSTAG 
NPTS 

* N1.N2 
RGAS 

RHO, U, V, W, ET 


Specific heats c p and c v . 

Stagnation enthalpy h r used with constant stagnation enthalpy 
option. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

0 to get p and 7, 1 to get derivatives of p and T with respect to 
dependent variables. 

Flag for constant stagnation enthalpy option. 

Number of grid points in the sweep direction, N. 

Number of grid points i\\ and V 2 , in the £ and y\ directions. 

Gas constant R. 

Static density />, velocities u, v, and w, and total energy E r . 


Output 


DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

ET 

INEG 


P, T 


Derivatives dpjdp , dpjd(pu), dpjd(pv), dpfd(pw) } and dpjdE r . 
Derivatives dT/dp , dTld(pu), dT/d(pv) y 8T/d(pw ), and dTjdE T . 

Total energy (constant stagnation enthalpy option only.) 

Flag for non-positive pressure and/or temperature; 0 if positive, 1 
if non-positive. 

Static pressure p and temperature T. 


Description 


Subroutine EQSTAT computes various quantities that depend on the form of the equation of state. It 
actually serves a dual purpose. First, it is called from subroutine INITC and from the MAIN program, 
with the input parameter ICALL — 0, to compute the static pressure p and temperature T from the initial 
or just-computed values of the dependent variables. If the constant stagnation enthalpy option is being used 
it also computes a value for the total energy E r . And second, it is called from subroutines BVUP and 
EXEC, with ICALL = 1, to compute the derivatives of p and T with respect to the dependent variables. 24 


The equation of state currently built into PROTEUS is for a perfect gas. The formulas used to compute 
p , T, and their derivatives with respect to the dependent variables are presented in Section 5.3 of Volume 
1 for two-dimensional planar flow and in Section B.2.3 of Volume 1 for axisymmetric flow. 


24 These are needed for linearization of the governing equations. 


See Section 5.1 of Volume 1 for details. 
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Remarks 


1- When used to compute p and T (ICALL = 0), this subroutine is called from outside any loops in the 
£ ox v] directions. When used to compute dpjdp, etc., (ICALL = 1), it is called for each ADI sweep 
from inside a loop in the non-sweep direction. 

2. When computing dpjdp , etc., this subroutine uses one -dimensional addressing of two-dimensional ar- 
rays, as described in Section 2.3. 


ISO 
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Subroutine EXEC 

Called by 

Calls 

Purpose 

MAIN 

ADI 

A VIS Cl 

AVISC2 

BCELIM 

BCGEN 

BVUP 

COEFC 

COEFE 

COEFX 

COEFY 

COEEZ 

EQSTAT 

PERIOD 

RES1D 

UPDATE 

Manage solution of governing equations. 


Input 

* A I PI IA 1, AEPIIA2 

DXI, DETA 
ETAX, in AY, ETAT 

* IAV2E, IAV4E, IAV2I 


* I AX I 
IBCELM 


* ICIIECK 

* IHSTAG 

* I SWIRL, 

II 

I'l' ‘BEG 

* ITHIN 
JI 

KBCPER 


NEQP 


NMAXP 
NPT1, NPT2 


Spatial difference centering parameters <x l and a 2 , for the £ and rj 
directions* 

Computational grid spacing A£ and Arj. 

Metric coefficients rj y (or y\ t if axisymmetric), and rj r 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Flag for axisymmetric flow. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. 

Convergence checking interval. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Current time step number n . 

The time level n at the beginning of a run. 

Flags for thin-layer option. 

Inverse Jacobian of the nonorthogonal grid transformation, J l . 

Flags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, 1 for periodic. 

Cray PARAMETER specifying maximum number of coupled 
equations allowed. 

Cray PARAMETER specifying maximum of NIP and N2P. 

*Vj and N 2 for non-periodic boundary conditions, A\ + 1 and 
N 2 T 1 for spatially periodic boundary conditions in f and >/. 

Number of grid points N, and N 2 , in the £ and y] directions. 
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NIP 

XIX, XIY, XIT 
Y 

Output 

ALPHA 

DEL 

IBASE, ISTEP 

ISWEEP 

IV 

II, 12 

JI 


METX, METY, METT 

NPTS 

NV 

RAX 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
TL 


Cray PARAMETER specifying the DIMENSION size in the £ 
direction. 

Metric coefficients (or £ r if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Spatial difference centering parameter a for the sweep direction. 

Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Current ADI sweep number. 

Index in the "vectorized" direction, i v . 

Grid indices / and y, in the £ and r\ directions. 

The radius times the inverse Jacobian of the nonorthogonal grid 
transformation, rJ~ x (used in COEE routines for axisymmetric 
flow only.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x , y (or r if axisymmetric), and t. 

Number of grid points in the sweep direction, N. 

Number of grid points in the "vectorized" direction, N v . 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Static density p, velocities u } v, and w, and total energy E r at time 
level n + 1. 

Static density p, velocities u y v, and w, and total energy E r at time 
level n. 

Static temperature T at time level n. 


Description 

Subroutine EXEC manages the solution of the governing equations. It is called by the MAIN program 
during each marching step from time level n to n + 1. The steps involved in EXEC are described below. 

Preliminary Steps 

1. If this is the first time step, temporarily set the thin-layer flags to zero. 

2. Initialize the coefficient submatrices A, B, and C, and the source term subvector S, to zero. 

3. If spatially periodic boundary conditions are being used in either direction, call PERIOD to add the 
appropriate extra line(s) of data. 
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First ADI sweep , c direction 


4. Set various sweep-dependent parameters, as follows: 

ISHEEP - 1 

ISTEP = 1 

DEL = 

ALPHA = a, 

NPTS = N x or + 1 

NV = A r 2 or A r 2 + 1 

5. For axisymmetric flow, set J I = rjJ at all grid points. 

6. Begin loop in non-sweep (*/) direction over interior points (j = 12 = 2 to NPT2 — 1). 

7. Set metrics in sweep (£) direction along the current ^-line (j = 12) at all £ grid points (/ = 1 1 = 1 to 
NPT1), as follows: 

METX(I2,I1) = (£ x ) tJ 
METY (12,11) = (S y )ior(SXj 
METT (12,11) = 

8. For axisymmetric flow, set RAX(Il) = r tJ along the current */-line at all £ grid points. 

9. Call EQSTAT to get the derivatives of p and T with respect to p } pu % etc., along the current rj-line 
at all £ grid points. 

10. Call the COEF routines to compute the coefficients and source terms for the governing equations 
along the current */-!ine at all interior £ grid points. 

11. End of loop in non-sweep (*/) direction. 

12. For axisymmetric flow, reset JI — \/J at all grid points. 

13. For non-spatially periodic boundary conditions in the £ direction, begin loop in non-sweep (>?) direction 
over interior points (j = 12 = 2 to NPT2 — l). 

14. Call EQSTAT to get the derivatives of p and 7 with respect to p, pu y etc., along the current ^-linc 
at all £ grid points. 

15. Call BCGEN to compute the coefficients and source terms for the boundary condition equations 
at the end points (/= II = 1 and A',) of the current >/-line. 

16. If three-point boundary conditions w r erc used at either boundary, call BCELIM to eliminate the 
resulting off-diagonal coefficient submatrices. 

17. End of loop in non-sweep (*/) direction. 

18. Every ICIIECK time steps, call RESID to compute residuals at time level n without the artificial 
viscosity terms, and to update the convergence history fde. 

19. If artificial viscosity is being used, call AVISC1 or AVISC2 to add the appropriate terms to the coeffi- 
cient submatrices and/or the source term subvectors at all interior grid points. 

20. Every ICIIECK time steps, if artificial viscosity is being used, call RESID to compute residuals at time 
level n with the artificial viscosity terms, and to update the convergence history file. 

21. If spatially periodic boundary conditions are being used in the £ direction, reset NPTS = N v 

22. Call ADI to solve the system of difference equations. 

23. Begin loop in non-sweep (>/) direction over interior points (j — 12 = 2 to NPT2 — 1). 

24. Call UPDATE to compute the primitive flow variables, Q\ from the newly computed conservation 
variables in delta form, AQ\ along the current >/-linc at all £ grid points. 

25. End of loop in non-sweep (*/) direction. 
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26. Set various sweep-dependent parameters, as follows: 


27. 

28. 
29. 


30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 


ISWEEP = 2 
ISTEP = NIP 
DEL = A*/ 

ALPHA = a 2 

NPTS = A' 2 or N 2 + 1 

NV - .V, or A', + 1 

For axisymmetric flow, set JI = rjJ at all grid points. 

Begin loop in non-sweep (£) direction over interior points (/ = II = 2 to NPT1 - 1). 

Set metrics in sweep 0/) direction along the current £-line (/= II) at all rj grid points (/ = 12= 1 to 
NPT2), as follows: 


METXC 11,12) = (*„).. 

METYCI1,I2) = (*l y )ij or {nXj 
METTC 11,12) = 

For axisymmetric flow, set RAX(I2) = r l } along the current £-line at all ^ grid points. 

Call EQSTA I to get the derivatives of p and T with respect to p, pu , etc., along the current £-line 
at all Yj grid points. 

Call the COEF routines to compute the coefficients and source terms for the governing equations 
along the current £-line at all interior tj grid points. 

Fnd of loop in non-sweep (£) direction. 

For axisymmetric flow, reset JI = 1/7 at all grid points. 

For non-spatially periodic boundary conditions in the rj direction, begin loop in non-sweep (£) direction 
over interior points (/ = 1 1 = 2 to NPT1 - 1). 

Call FQS FAT to get the derivatives of p and T with respect to p , pu y etc., along the current £-line 
at all rj grid points. 

Call BCGFN to compute the coefficients and source terms for the boundary condition equations 
at the end points {j = 12 = 1 and N 2 ) of the current £-line. 

If three-point boundary conditions were used at either boundary, call BCELIM to eliminate the 
resulting off-diagonal coefficient submatrices. 

End of loop in non-sweep (£) direction. 

If implicit artificial viscosity is being used, call AVISC1 to add the appropriate terms to the coefficient 
submatrices at all interior grid points. 

If spatially periodic boundary conditions are being used in the rj direction, reset NPTS = N 2 . 

Call ADI to solve the system of difference equations. 

Begin loop in non-sweep (f) direction over interior points (/= II = 2 to NPT1 - 1). 

Call UPDATE to compute the primitive flow variables, Q" +1 , from the newly computed conserva- 
tion variables in delta form, AQ*, along the current f-line at all ^ grid points. 

End of loop in non-sweep (£) direction. 


Finishing Steps 


46. If this is the first time step, reset the thin-layer flags back to their input value. 
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47. Call BVUP to update the £ boundary values, if necessary. 

48. For all grid points, shift RHO and RHOL so that RHO = and RHOL = p n . Similarly, shift the 
Fortran variables for w, v, w, and E T . Finally, set TL — T n . 
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Subroutine FILTER 

Called by 

Calls 

Purpose 

BI.K3 
BI K4 
BLK5 

BUKOUT 

ISAMAX 

Rearrange rows of the boundary condition coefficient submatrices and 
the source term subvector to eliminate any zeroes on the diagonal. 


Input 

A, B, C 

* IDE BUG 

* IPRT1A, IPRT2A 
I SWT. HP 

rr 

IV 

NEQ 
NMAXP 
+ NOUT 

NPRT1, NPRT2 

NPTS 

S 

Output 

A, B, C 
S 


Coefficient submatrices A, B, and C before rearrangement. 
Debug flags. 

Indices for printout in the £ and rj directions. 

Current ADI sweep number. 

Current time step number n. 

Index in the "vectorized" direction, / v . 

Number of coupled equations being solved, jV 

Cray PARAMETER specifying maximum of NIP and N2P. 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 
Number of grid points in the sweep direction, N. 

Source term subvector S before rearrangement. 


Coefficient submatrices A, B, and C after rearrangement. 
Source term subvector S after rearrangement. 


Description 

Subroutine FILTER rearranges rows of the coefficient block submatrices and the source term subvector, 
at the two boundaries in the ADI sweep direction, in an attempt to eliminate any zero values on the diag- 
onal of the submatrix B. These zero values may occur when boundary conditions are specified using the 
JBC and/or IBC input parameters, depending on the initial conditions and the order of the boundary con- 
ditions. 


For instance, if the specified initial conditions are zero velocity and constant flow properties every where 
in the flow field, the perfect gas equation of state yields: 

E>T = pCyf 


P = b - 1)£t 

dp_ = dp _ dp ^ 
dp d(pu) d(pv) 
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dT 

dp 


Jh_ 

2 

CyP 


d(pu) d{pv) 

dT = 1 

dE r c vP 

If, in addition, the boundary conditions at a given boundary are, in order, specified pressure p—f, no-slip 
x- and and _y-velocity u = 0 and v = 0, and specified temperature T —f then the linearization of the 
boundary conditions leads to the following B coefficient submatrix for that boundary: 

0 0 0 J(y- 1)" 

o 0 Jjp 0 0 

15 “ 0 0 Jjp 0 

— JEpjCyp 2 0 0 Jl^yp 

The zero on the diagonal will lead to a divide-by-zero error in subroutine BLK4, even though this is not a 
singular matrix. 

Subroutine FTLTER tries to fix this problem. In this example, it finds a zero at element B u , searches 
column 1 for the largest element in absolute value (in this case —JE r jc v p 2 ) t and adds that row to the row 
with the zero on the diagonal. Of course, the corresponding rows of A, C, and S must also be added to- 
gether. The new B submatrix would be: 

—JE r jc v p 2 0 0 J(y — 1) + J/Cyp 

o _ 0 J\p 0 0 

K ” 0 0 Jjp 0 

— JE'fjCyp 2 0 0 JjCyP 


Remarks 

1. If a column with a zero on the diagonal has no other elements greater than 1 0 10 , then it is assumed that 
the matrix B is singular, which means the specified boundary conditions are not independent of one 
another. An error message is printed and the calculation is stopped. 

2. It's probably sufficient to only call this subroutine for the first time step. After the first step, the chances 
of u and v both being exactly zero at the same interior grid point are slim. Nevertheless, in the current 
version of PROTEUS, FILTER is called at every time step. 

3. The Cray BLAS routine ISAMAX is used in finding the largest element in any column corresponding 
to a zero on the matrix diagonal. 

4. This subroutine generates the output for the IDEBUG(4) option. 
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Subroutine FTEMP 

Called by 

Calls 

Purpose 

INITC 

MAIN 


Compute auxiliary variables that are functions of temperature. 


CCP1, CCP2, CCP3, CCP4 
CK1, CK2 
CMUI, CMU2 
+ GAMR 
IGAM 


* ILAMV 

* NOUT 

* Nl, N2 
RGAS 
T 

* TR, UR, MUR, KIR 


Constants in formula for specific heat. 

Constants in formula for laminar thermal conductivity coefficient. 
Constants in formula for laminar viscosity coefficient. 

Reference ratio of specific heats, y r . 

Flag for constant or variable c pi c„, and y\ 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

Flag for computation of laminar viscosity and thermal 
conductivity. 

Unit number for standard output. 

Number of grid points N x and V 2 , in the £ and y directions. 

Gas constant R. 

Static temperature T. 

Reference temperature T r , velocity u r , viscosity \i r , and thermal 
conductivity k r . 


Output 


CP, CV Specific heats c p and c v . 

MU, LA, KT Laminar coefficient of viscosity laminar second coefficient of 

viscosity X ( , and laminar coefficient of thermal conductivity k { . 


Description 

Subroutine FTEMP computes the auxiliary variables ? VJi k { , c p , and c v . For the laminar viscosities \i l 
and X h and the laminar thermal conductivity k h there are two options currently available. 

If the input parameter ILAMV = 0 (the default), FTEMP sets the nondimensional values as: 

N = 1 
^ = -2/3 
^=i 

Thus, with this option, the laminar viscosity and thermal conductivity are held constant at their reference 
values. These reference values, may be specified by the user, or computed from the reference temperature. 
The laminar second coefficient of viscosity A, is set equal to — 2u,/3. 

If ILAMV = 1 ,ii t and k, are computed as functions of temperature using Sutherland's formula (White, 
1974). The formula for the laminar viscosity coefficient n, is 
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3/2 


_ V-l _ Mr 7 ' + C /<2 / T \ 

H r - n r T + c ^ [ r r ) 

where the overbar indicates a dimensional value, and \i t is the laminar viscosity coelficicnt at T — T rJ given 
by 


Depending on the namelist input values of MLR and RHR, fi' r may or may not be equal to \i r Ihese 
formulas are valid for air for temperatures from 300 to 3420 °R (167 to 1900 K). I he value of the constants 
C uX and C u2 depend on whether reference values are being specified by the user in Lnglish units 
(I UNITS = 0) or SI units (IUNITS — 1). The values are presented in Table 4-1. The laminar second co- 
efficient of viscosity /, is set equal to — 2;x,/3. The formula for the laminar thermal conductivity coefficient 
k t is 


, _ ^l_ __ I r + C k2 / \ 3 ' 2 

l ~ K~ k r f + C k2 V r r ) 

where the overbar indicates a dimensional value, and k[ is the laminar thermal conductivity coefficient at 
T = T rJ given by 


Depending on the namelist input values of KTR and PRI R, k\ may or may not be equal to k r These 
fonnulas are valid for air for temperatures from 300 to 1800 °R ( 167 to 1000 K). The value of the constants 
C kX and C k2 depend on whether reference values are being specified by the user in Lnglish units 
(IUNITS = 0) or SI units (IUNITS = 1). The values are presented in Fable 4-1. 


There are also two options available for the specific heat coefficients c p and c v . It the flag IGAM = 1, a 
value of the specific heat ratio y has been specified by the user. In this case c p and c v arc treated as constants, 
and computed from 


Cp= <V H R 

If IGAM = 0, the user did not specify a value of y. In this case, the specific heat coefficient c p is computed 
as a function of temperature from the empirical formula of Hesse and Mumford (1964), and c v is computed 
from that value assuming a thermally perfect gas. The ratio y — c p jc v will then vary with temperature. The 
equations for c p and c v are: 


C P 2 : 


T r 


(Q.I ~~ 0„2^ l/2 ” 0.3 7 + C c a T 1 ) 


C v Cp R 

This formula is valid for air for temperatures from 540 to 9000 °R (300 to 5000 K). The values of the 
constants C Cpl through C^ 4 are presented in Table 4-1. 
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TABLE 4-1. - EMPIRICAL CONSTANTS FOR M /, K AND c. 


CONSTANT 

ENGLISH 

UNITS 

SI UNITS 

Q 

7.3035 x 10- 1 

1.4582 x 10- 6 


198.6 

110.3 

c H 

7.4907 x 10- 3 

1.8641 x 10- 3 

Ck 2 

350.0 

194.4 


8.53 x 10 3 

1.4264 x 10 3 

<V 

3.12 x 10 4 

3.8888 x 10 3 

<V 

2.065 x 10 6 

1.9184 x 10 5 


7.83 x 10 8 

4.0413 x 10 T 


Remarks 

1. The formulas used with the I LA MV = 1 option are for air. For other fluids, different formulas should 
be used to compute \x h and k { > These could easily be programmed as additional I LA MV options. 
Or, if the flow being computed is such that and k } may be considered constant, simply set 
ILAMV = 0 and read in the appropriate values for /i r and k r Note, however, that the I LA MV = 0 
option still sets 2, = — 2 J u / /3. 

2. The formula used to compute c p , when a value of y is not specified by the user, is for air. For other 
gases, a different formula should be programmed. Or, if c p and c v may be considered constant, a value 
of y should be read in. 

3. An error message is generated and execution is stopped if an illegal value is specified for ILAMV. 
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Subroutine GEOM 

Called by 

Calls 

Purpose 

MAIN 

METS 

PAK 

Manage computation of grid and metric parameters. 


Input 

♦ IPACK 

♦ NGEOM 

♦ NGRID 

♦ NOUT 

♦ Nl, N2 
NIP, N2P 

♦ RMIN, RMAX 

♦ TIIMIN, THMAX 

♦ XMIN, XMAX 

♦ YMIN, YMAX 

Output 

DXI, DETA 
X, Y 

Description 

Subroutine GEO\l manages the computation of the grid and metric parameters. There are currently 
three coordinate system options built into PROTEUS, as follows: 

NGEOM Computational Coordinates 

1 Cartesian (x-j>) 

2 Polar (r'-O') 

10 Read from separate file. 

Subroutine GEO\l first computes the grid spacing in computational space in the { and y\ directions as 
A£ = 1 l(N l - 1) and A»/ = 1/(A 2 - 1). Note that grid points in computational space are always evenly dis- 
tributed along the (£-rj) coordinate lines. 

Cartesian fx-y) Coordinates (NGEOM = I ) 

For the Cartesian coordinate option, an evenly spaced set of physical Cartesian (x-y) coordinates are 
related to the computational (£-»?) coordinates by 

x ~ x min "b { X max ~~ x min)£ 
y — ymin "b C Vmax “ ymin )*? 

These equations also apply to axisymmetric flow, with y representing the radius r If grid packing is used, 
subroutine PAK is called to redistribute these points according to the packing parameters specified by the 


Flags for grid packing option. 

Flag for type of computational coordinates. 

Unit number for input mesh file. 

Unit number for standard output. 

Number of grid points i\\ and N 2l in the £ and rj directions. 

Cray PARAMETERS specifying the DIMENSION sizes in the 
and r\ directions. 

Minimum and maximum r ' -coordinates for polar grid. 

Minimum and maximum ^'-coordinates for polar grid. 

Minimum and maximum x-coordinates for Cartesian grid. 
Minimum and maximum ^-coordinates for Cartesian grid. 

Computational grid spacing A£ and A rj. 

Cartesian coordinates x and y t or cylindrical coordinates x and r. 
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user, and to interpolate to get the new physical Cartesian (x-j/) coordinates in the computational mesh. 
Subroutine METS is then called to numerically compute the grid transformation metrics and Jacobian. 

Polar (r'-Q'j Coordinates (NGEOM =2) 

For the polar coordinate option, an evenly spaced set of physical polar (r'-fl') coordinates are related to 
the computational (£->7) coordinates by 

O' = 0' min +(0U - e 9 mln K 
** ~~ r'min i^max ^min )*7 
1 he Cartesian (x-j/) coordinates are simply given by 

x = P cos O' 
y = P sin <9' 

The above equations also could be used in axisymmetric flow, with y representing the radius r. As in the 
NGEOM == 1 option, if grid packing is used, subroutine PAK is called to redistribute these points according 
to the packing parameters specified by the user, and to interpolate to get the new physical Cartesian (x-y) 
coordinates in the computational mesh. Subroutine METS is then called to numerically compute the grid 
transformation metrics and Jacobian. 

Coordinates Read From Separate File ( NGEOM = 10) 

I he third option for specifying the computational coordinate system is to read it from a separate file, 
as described in Section 3.2 of Volume 2. The computational (£-rj) coordinate system is determined by a 
set of N Gl x N G2 points whose physical Cartesian (x-y) coordinates are specified. Here A 7 C1 , and N G2 are the 
number of points in the £ and t] directions used to specify the computational coordinate system. Note that 
they do not have to be equal to W, and A 7 2 , the number of points in the computational mesh used for the 
finite- difference method . 25 Note also that the points do not have to be equally distributed in physical space 
along the £ and yj coordinate lines. 

If grid packing is being used, subroutine PAK is called to distribute N x x N 2 computational mesh points 
in physical space according to the packing parameters SQ specified by the user, and to interpolate among 
the A G1 x N G2 points in the input computational coordinate system to get the new physical Cartesian coor- 
dinates of the points in the computational mesh. 

If grid packing is not being used, but N Gl and N G2 are not equal to A r 1 and N 2 respectively, then sub- 
routine PAK is still called. In this case, however, PAK distributes the A 7 , x N 2 computational mesh points 
evenly in physical space and then interpolates among the A 7 CI x N G2 points in the input computational co- 
ordinate system to get the new physical Cartesian coordinates of the points in the computational mesh. 

In either case, subroutine METS is then called to numerically compute the grid transformation metrics 
and Jacobian. 

Remarks 

1* There may be some confusion between the axisymmetric flow option and the polar coordinate system 
option, or between the axisymmetric radius r and the polar coordinate P. They are not the same thing. 

I he governing flow equations were originally developed by writing them in Cartesian (x-^>) coordinates, 
then transforming them into generalized (£-* 7 ) coordinates. Therefore, any computational coordinate 
system that is used, including the polar coordinate system, must be related to the original Cartesian 
system through the transformation metrics and Jacobian. The parameters P and Q 9 are used only to 
initially define the coordinates in the NGEOM = 2 option. Now, if the (x-y) coordinates, no matter 
how they are obtained, are rotated about the Cartesian x axis, the result is a cylindrical coordinate co- 


25 The distinction between the computational coordinate system and the computational mesh is described in Section 
2.2 of Volume 2. 
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ordinate system with y representing the radius r. Thus, the axisymmetric flow option can be used with 
any of the coordinate system options. ITe polar coordinate option would be useful, for instance, for 
flow over a sphere. 

2. An error message is generated and execution is stopped if an illegal coordinate system option is speci- 
fied. 

3. With the NGEOM = 10 option, an error message is generated and execution is stopped if N GX and/or 
N G2 are greater than the dimensions NIP and/or N2P. 
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Subroutine INIT 


Called by 

Calls 

Purpose 

INITC 


Get user-defined initial flow field. 

Input 

♦ ICVARS 


Flag specifying which variables are being supplied as initial con- 
ditions by subroutine INIT. 

NIN 


Unit number for namelist input. 

♦ NOUT 


Unit number for standard output. 

♦ Nl, N 2 


Number of grid points A', and N 2 , in the £ and >7 directions. 


Output 

P, T f U, V, W Initial flow field values of static pressure p , static temperature 7, 

and velocities u, v, and w. 


Description 

Subroutine I NIT supplies the user-defined initial flow field. In general, this subroutine will be tailored 
to the problem being solved, and supplied by the user. Details on the variables to be supplied by INIT are 
presented in Section 5.1 of Volume 2. 

A default version of INIT is supplied with PROTEUS that specifies uniform flow with constant prop- 
erties everywhere in the flow field. The above list of input and output Fortran variables are for the default 
version of INIT. The default version assumes ICVARS = 2 (the default value), and reads values of A), 
v 0t w 0 , and T 0 from namelist IC. Thejlefaults for these parameters are 1.0, 0.0, 0.0, 0.0, and 1.0, respectively, 
resulting in an initial flow field with p = p rt u = v = w = 0, and T = T r . 

Remarks 


1. If a value for ICVARS other than 2 is set in the input, a warning message is generated and ICVARS 
is reset to 2 . 

2. Subroutine INIT is a convenient place to specify point -by-point boundary condition types and values. 
It's often easier to do this using Fortran coding rather than entering each value into the namelist input 
file. 
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Subroutine INITC 

Called by 

Calls 

Purpose 

MAIN 

EQSTAT 

FTEMP 

INIT 

REST 

TLRBBL 

Set up consistent initial conditions based on data from INIT. 


Input 

+ GAMR 
GC 

* HSTAG 
+ ICVARS 

* IHSTAG 

* IREST 

* ITURB 

+ N1.N2 

PR 

RGAS 

* RHOR, UR 
INITIAL FLOW FIELD 


Output 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
TL 


Reference ratio of specific heats, y r 

Proportionality factory in Newton's second lav/. 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Flag specifying which variables are being supplied as initial con- 
ditions by subroutine I NIT. 

Flag for constant stagnation enthalpy option. 

Flag for reading restart file. 

Flag for turbulent flow option. 

Number of grid points A\ and N 2 , in the £ and r\ directions. 
Reference pressure p r 
Gas constant R. 

Reference density p r and velocity u r 

From the user-suppled or default version of subroutine I NIT. 
The combination of variables supplied by INIT is specified by 
ICVARS. See Section 5.0 of Volume 2 for details. 

Initial flow field values of static density p, velocities u , v, and w, 
and total energy E r at time level n . 

Initial flow field values of static density p, velocities «, v, and w, 
and total energy E r at time level n— 1 . 

Static temperature T at time level n — 1. 


Description 

Subroutine INITC sets up consistent initial flow field conditions based on the data supplied by sub- 
routine INIT. For restart cases, subroutine REST is called to read the computational mesh and the initial 
flow field. Otherwise, the data supplied by INIT are used to obtain the density p, the velocities w, v, and 
w, and the temperature T . 26 It then calls FTEMP to compute the laminar viscosity coefficients p, and the 
laminar thermal conductivity coefficient k h and the specific heat coefficients c p and c v . EQSTAT is called 
next to compute the pressure p and to recompute the temperature T. r For turbulent flow, the appropriate 


26 The calculation of T at this point may be approximate. See Remark 1. 

27 See Remark 1. 
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subroutines are called to compute the effective viscosity and thermal conductivity coefficients using the 
turbulence model specified by the user. And finally, for non-restart cases, the values of the dependent var- 
iables at time level n — 1 are set equal to the values at level 1 . 

The flag ICVARS is used to specify which combination of variables are being supplied by INIT. The 
calculation of p, u, v, w, and T is described below for the different values of ICVARS. In all of the equations 
below, the specific heats are defined by 


c 


V 



c p — R + c v 

where y r is either specified by the user or computed from the reference temperature T r 
ICVARS = / 


With this option, the density p, the momentum components pu } pv, and pw, and if IHSTAG = 0 the 
total energy E r , are supplied by INIT. Thus, the velocity components are simply 

pu 



pw 

w= — 

If the energy equation is being solved (IHSTAG = 0), the temperature is computed from 

rj . 1 f 1,2.2, 2. _ | 

’J 

If the energy equation is being eliminated by assuming constant stagnation enthalpy (IHSTAG =1), the 
temperature is computed from 

r= i[^-i (M2+v2+w2) ] 


ICVARS = 2 

With this option, the pressure p and the velocities w, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG =1), the temperature is computed from 

r “i[* r ~i ( " 2+v2+ “' 2) ] 


The density is then given by 


P = 


P 

RT 


and the total energy is 


- = p C y T + y (M 2 + V 2 + W 2 ) J 
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ICVARS = 3 


With this option, the density p and the velocities w, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed from 

r= ^[ /lr_ i (u2+v2+w ' 2) ] 

The total energy is then 

e T= p[cT + y (W 2 + v 2 + w 2 ) J 


ICVARS = 4 


With this option, the pressure p and the velocities u t v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the density p is also supplied by INIT. If it is being eliminated 
by assuming constant stagnation enthalpy (IHSTAG = 1), this option is the same as the ICVARS — 2 op- 
tion. If the energy equation is being solved, then, the temperature is 


7 = 


P 

P R 


The total energy is then 

E T = P [c v 7 + y (w 2 + V 2 + W 2 ) ] 


ICVARS = 5 

With this option, the static pressure coefficient c and the velocities w, v, and w are supplied by INIT. 
If the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed 
from 


7= ^[ /!r_ i (w2 + v,2 + w,2) ] 


The pressure coefficient is defined by 


iP ~Pr)gc 
C P~ 2 n 
Pr u r 1 2 

The nondimensionalized pressure p = pgjp r uj is thus 



or, since p r = p r RT r jg c and the nondimensionalized gas constant R = RTJu r 2 , 





The density is then 


P = 


P 

RT 
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and the total energy is 


E T = p c v T + y (w 2 + v 2 + w 2 )] 


/CFT/?S = 6 

With this option, the pressure /?, Mach number M y and flow angles a v and a w are supplied by INIT. If 
the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG= 1), the temperature is computed 
from 




where T t = h T \c . The density is 


P = 


RT 


The flow angles are defined by a v — tan _l (v/w) and ct w — tan ^(w/w). The Mach number is defined by 


M 


Solving for w, 


u = M 


u 2 + v 2 + w 2 \ 1/2 

y r RT 

yjRT 

1 + (v/w) 2 -f ( wju ) 2 


1/2 


where (v/w) 2 = tan 2 a„ and (w/w) 2 — tan 2 a^. The remaining velocities are simply 

v = u tan a. 


w = u tan <x u 


1’he total energy is 




C V T + y(w 2 + V 2 



Remarks 

1. If T is not supplied by INI!', it must be computed from the equation of state. The equation of state 
contains a specific heat coefficient (either c p or c v , depending on whether the stagnation enthalpy is as- 
sumed constant or not.) The first time T is computed in INITC, a constant value of specific heat is 
used, consistent with the reference temperature T r . If the user specified constant specific heat (i.e., a 
value for y r was read in), this is not a problem. However, if the temperature-dependent specific heat 
option is being used (i.e., a value for y r was not read in), the equation of state and the empirical equation 
for specific heat are coupled. For this reason T is recomputed in EQSTAT after the specific heats are 
computed in FTEMP. Ideally, this coupling would be handled by iteration between FTEMP and 
EQSTAT. This is not currently done in PROTEUS, however. 

2. For options in which the pressure p is specified (ICVARS = 2, 4, and 6), the value supplied by INIT 
is redefined as follows: 


P=P 


PrZc 

2 

Pr“r 
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This is_necessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T r , while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n = p r u}. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

3. With the 1CVARS = 6 option, the initial velocity u will be limited to non-negative values. 

4. If non-positive pressures or temperatures were computed in EQSTAT, the Fortran variable INEG will 
be positive. An error message will be printed, including a table showing the location of the non-positive 
values. The calculation will stop in INITC. 

error message is generated and execution is stopped if an illegal value is specified for ICVARS. 

error message is generated and execution is stopped if the value of ITURB does not correspond to 
existing turbulence model. 
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Subroutine INPUT 


Called by 

Calls 

Purpose 

MAIN 

ISAMAX 

Read and print input, perform various initializations. 

Input 



NIN 


Unit number for namelist input. 

NIP 


Cray PARAMETER specifying the maximum number of entries 
in the table of time -dependent boundary condition values. 

NTSEQP 


Cray PARAMETER specifying the maximum number of time 
step sequences for the time step sequencing option. 

NIP, N2P 


Cray PARAMETERS specifying the DIMENSION sizes in the £ 
and yj directions. 

Output 

GAMR 


Reference ratio of specific heats, y r . 

1 1ST AG, IISTAGR 

Dimensionless and dimensional stagnation enthalpy h T for the 
constant stagnation enthalpy option. 

IGAM 


Flag for constant or variable c p , c„, and y; 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

♦ IPRT1A, IPRT2A 

Indices for printout in the £ and r] directions. 

ITDBC 


Flag for time -dependent boundary conditions; 0 if all boundary 
conditions are steady, 1 if any general unsteady boundary condi- 
tions are used, 2 if only steady and time-periodic boundary' con- 
ditions are used. 

MAC HR 


Reference Mach number M r . 

MUR, KIR 

Reference viscosity coefficient \i r and thermal conductivity coeffi- 
cient k r 

NFQ 


Number of coupled equations being solved, N eq . 

NTR I’l, N PR 12 

Total number of indices for printout in the £ and rj directions. 

NRW, NT 1 


Array indices associated with the dependent variables pw and E r . 

NZM, NUN 


Array indices associated with the swirl momentum and energy' 
equations. 

PR 


Reference pressure p r . 

PRLR 


Reference laminar Prandtl number Pr , . 

RF.R, PRR 


Reference Reynolds number Re r and Prandtl number Pr r . 

RGAS 


Gas constant R. 

UR 


Reference velocity u r . 


Description 


Subroutine INPUT performs various input and initialization functions. It first reads the title and 
namelist input from the standard input file. Namelist RSTRT is read first, followed by namelist IO. If 
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IUNITS = 1, indicating reference conditions will be specified in SI units, various default values and con- 
stants are redefined to be consistent with SI units. The remaining namelists are then read. 

Next, the flags controlling the time step cycling and the convergence testing method are redefined, if 
necessary, to be consistent with each other. The number of equations being solved, and the array indices 
corresponding to the energy and swirl momentum equations, are then determined based on the values of 
IHSTAG and ISWIRL. A flag is set if time-dependent boundary conditions are being used. If the thin- 
layer option is being used, the flags ITXI and ITETA used in the Baldwin-Lomax turbulence model are 
automatically set equal to values consistent with the thin-layer approximation. 

Next, if frequency of printout in the £ and r; directions is being set by the input arrays IPRT1 and 
IPRT2, the corresponding grid indices are stored in arrays IPRT1A and IPRT2A. The total number of 
printout locations in each direction is also determined. 

A header is then written to the standard output file, followed by the input namelists. Note that, for 
variables not specified by the user in the input namelists, the values in this printout will be the default val- 
ues. 

Various checks are made for inconsistent or invalid input, and appropriate error or warning messages 
are written. These are described in Section 7.0 of Volume 2. 

Next, any reference or normalizing conditions not already defined are calculated. The reference and 
normalizing conditions are then written to the standard output file, with the appropriate units. See Section 
3.1.1 of Volume 2 for a discussion of the distinction between reference and normalizing conditions. 

Remarks 

1. The Cray BLAS routine ISAMAX is used in the input consistency check to determine whether any 
implicit artificial viscosity coefficients are non-zero. 
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Function ISAMAX (N,V,INC) 

Called by 

Calls 

Purpose 

BLOUTl 

BLOLT2 

CONV 

FILTER 

INPUT 

RESID 

TIMSTP 


Find the first index corresponding to the largest absolute value of the 
elements of a Fortran vector. 


Input 


N 


V 

INC 


Output 

ISAMAX 


Number of elements to process in the vector (i.e., 
N = vector length if INC = 1, N = (vector length)/2 if INC = 2 , 
etc.). 

Vector to be searched. 

Skip distance between elements of V. For contiguous elements, 

IVTC l 0 J 


f irst index corresponding to the largest absolute value of the ele- 
ments of V that were searched. 


Description 


Function ISAMAX finds the first index corresponding to the largest absolute value of the elements of 
a vector. . For a one-dimensional vector, the use of ISAMAX is straightforward. For example, 

IMAX = ISAMAX(NP,V,1) 

sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 1 to NP. 

A starting location can be specified, as in 

IMAX = 4 + ISAMAX(NP - 4,V(5),1) 

sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 5 to NP. 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDI.VI2, then 

IMAX = ISAMAX(ND1M 1 ♦NDIM2.A, 1) 

sets IMAX equal to the one-dimensional index corresponding to the maximum value of A(I,J) for all I and 

J. The maximum value of A can then be referenced as A( IMAX, 1). 

One dimension at a time can also be searched. For example, 

IMAX = ISAMAX(NDIM 1 ,A( 1 ,5), 1) 

sets IMAX equal to the index I corresponding to the maximum value of A(I,5) for I varying from 1 to 
NDIM1. Similarly, by specifying a skip increment, 
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J MAX = ISAMAX(NDIM2,A(5,J),NDIM1) 

sets J\1AX equal to the index J corresponding to the maximum value of A(5,J) for J varying from 1 to 
NDIM2. 

Remarks 

1. ISAMAX is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1988b). 
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Function ISAMIN (N.V.INC) 

Called by 

Calls 

Purpose 

BI.OLT1 
BI OF 12 


Find the first index corresponding to the smallest absolute value of the 
elements of a Fortran vector. 


Input 

N 


V 

INC 


Output 


Number of elements to process in the vector (i.e., 
N = vector length if INC =1, N = (vector length)/2 if INC = 2 , 
etc.). 

Vector to be searched. 

Skip distance between elements of V. For contiguous elements 

TVC I ’ 


ISAM IN 


First index corresponding to the smallest absolute value of the el- 
ements of V that were searched. 


Description 

Function ISAMIN finds the first index corresponding to the smallest absolute value of the elements of 
a vector. It is used in exactly the same way as ISA MAX. 

Remarks 


1* ISAMIN is a Cray extension to the BFAS (Basic Linear Algebra Subprograms) routines (Cray Re- 
search, Inc., 1988b). 
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Program MAIN 

Called by 

Calls 

Purpose 


BCSET 

CONV 

EQSTAT 

EXEC 

FTEMP 

GEOM 

INITC 

INPUT 

OUTPUT 

PLOT 

PRTHST 

REST 

TBC 

TIMSTP 

TURBBL 

Manage overall solution. 


Input 


None. 


Output 

IT 

Current time step number n . 

ITEND 

Final time step number. 

ITSEQ 

Current time step sequence number. 

TAU 

Current time value t. 


Description 

The MAIN program is used to manage the overall solution. The steps involved are described below. 

Preliminary Steps 

1. Call INPUT to read and print the input, and perform various initialization procedures. 

2. Unless this is a restart case, call GEOM to get the computational coordinates and metric data. 

3. Call INITC to get the initial flow field. 

4. Call BCSET to set various boundary condition parameters and flags, and to print the input boundary 
condition types and values. 

5. Initialize the plot file, 28 and, if requested by the user, write the initial or restart flow field into the plot 
file. 

6. If requested by the user, print the initial or restart flow field. 

7. Compute NTSUM, the maximum total number of marching steps to be taken, and ITEND, the cor- 
responding final index on the time marching loop. Set the initial values of 1TSEQ, the time step se- 
quence number, and 1TSWCH, the time index for switching to the next sequence, both to zero. 


28 The initialization procedure depends on the type of plot file being written. See the description of subroutine PLOT. 
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Time marching loop 


8 . 

9. 

10 . 

11 . 

12 . 

13 . 


14. 

15 . 

16. 
17. 


IS. 


19 . 

20 . 
21 . 


Begin the time marching loop. The loop index IT corresponds to the known time level n. Each iter- 
ation of the loop thus corresponds to a step from time level n to n 4- 1. 

If at the end of a time step sequence, update ITSEQ, the time step sequence number, and 
1 rSWCH, the tune index for switching to the next sequence. 

Eor the first time step, and every IDTMOD'th step thereafter, call TIMSTP to compute the new 
time step At. Eor every time step update the time value t. 

If time-dependent boundary conditions are being used, call TBC to set the boundary condition 

values. 

Call EXEC to solve the equations. 

Call EQSTAT to compute the pressure p and temperature T from the equation of state. If either 
is non-positive, indicating a non-physical solution, skip forward to step 17. 

Call 1 1 I MP to compute the laminar viscosities and k h the laminar thermal conductivity k h and 

the specific heats c p and c v . 

Eor turbulent flow, call the appropriate subroutines to compute the effective viscosity and thermal 
conductivity coefficients using the turbulence model specified by the user. 

Every ICIIECK time levels, call CONV to check for convergence. 

If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 
atures were computed, print the flow field at time level n T 1. 

If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 
atures were computed, write the flow field at time level n + 1 into the plot file. 

If non-positive pressures or temperatures w^ere computed, write an error message showing the lo- 
cation of the non-positive values and skip forward to step 23, ending the calculation. 

If the calculation is converged, print a message and skip forward to step 22, ending the calculation. 

E nd of time marching loop. Print a message indicating the calculation did not converge. 


Tina! St eps 


22. It requested by the user, call REST to write the restart file. 

23. It first-order time difterencing and steady boundary conditions were used, call PRTHST to print the 

con vergen ee history . 


Remarks 

1. The starting index for the time marching loop is ITBEG. For a non-restart case H BEG = 1, and thus 
the initial starting flow field is at time level 1. For a restart case ITBEG = n y where n is the time level 
stored in the restart file, and thus the starting flow field is the previously computed flow field at time 
level n. 

2. The ending index for the time marching loop is ITEND = ITBEG -f NTSUM - 1, where NTSUM is 
the total number of time steps to be taken. For a non-restart case, then, the time marches from level 
1 to level 1 + NTSUM. For a restart case, the time marches from level ITBEG to level 
ITBEG + M SI M. 

3. lhe logic involving N1SLM, ITSEQ, and ITSWCH is used to implement the time step sequencing 
option. I his allows one CFL number or time increment to be used for a specified number of steps, 
followed by another CFL number or time increment for another specified number of steps, etc. 29 If this 
option is not used, NTSUM is simply equal to NTIME(l) and ITSEQ is always 1. 


Sec Section 3.1.9 of Volume 2 for details on how to invoke the time step sequencing option. 
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4. An error message is generated and execution is stopped if the value of ITURB does not correspond to 
an existing turbulence model. 

5. Although the calculation will stop if p or T < 0, as noted above in step 19, the standard output and plot 
file will include the time level with the non-positive values, if that is consistent with the IPRT and IPLT 
input parameters in namelist lO. The restart file will not be written. 
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Subroutine METS 

Called by 

Calls 

Purpose 

GEOM 

REST 

OUTPUT 

Compute metrics of nonorthogonal grid transformation. 


Input 

+ ALPHA I, ALPHAS 

DXI, DETA 

* IDEBUG 

* I VOLT 

* N1.N2 
X, Y 

Output 

E l AX, ETAY, ETAT 
IVOUT 


JI 

XIX, X1Y, XIT 


Spatial difference centering parameters a, and a 2 , for the ^ and y] 
directions. 

Computational grid spacing A£ and A rj. 

Debug flags. 

Flags specifying variables to be printed. 

Number of grid points N ] and N 2 , in the £ and rj directions. 
Cartesian coordinates x and y , or cylindrical coordinates x and r. 


Metric coefficients rj x , r^ y (or rj r if axisymmetric), and >/ r 

Flags specifying variables to be printed (temporarily redefined for 
debug output of metrics.) 

Inverse Jacobian of the nonorthogonal grid transformation, J l . 
Metric coefficients £ x , (or £ r if axisymmetric), and 


Description 

Subroutine METS computes the metric coefficients and the Jacobian for the generalized nonorthogonal 
coordinate transformation. The metric coefficients are defined in terms of the known (x-j>) coordinates of 
the computational mesh as: 

= J y n 

iy = - Jx r, 

*ix = ~ J y$ 

*ly = 

tt=-Xrtx-yJy 
= -*t»7x - -My 

where J is the Jacobian of the transformation, given by 


The derivatives of x and y with respect to the computational coordinates are computed numerically us- 
ing the same difference formulas as used for the governing equations. At interior points the variably cen- 
tered difference formula presented in Section 6.0 of Volume 1 is used. At boundaries three-point one-sided 
differencing is used. For -derivatives at the f = 0 and £ = 1 boundaries, 
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df 3Jw 4 fw±\ fw± 2 

^ 

<?£ - 2A£ 


where w represents the £-index at the boundary (i.e., either 1 or N { ). Where a ± sign appears, the + sign 
is used at the £ = 0 boundary, and the — sign is used at the £ = 1 boundary. An analogous formula is used 
for ^-derivatives at the tj = 0 and q = 1 boundaries. 

Remarks 

1. Since the current version of PROTEUS is limited to meshes that do not vary with time, the derivatives 
x T and y 7 are set equal to zero. 

2. This subroutine generates the output for the IDEBUG(7) option. 

3. An error message is generated and execution is stopped if the grid transformation Jacobian J changes 
sign or equals zero. This indicates that the computational mesh contains crossed or coincident grid 
lines. The error message is followed by a printout of the Cartesian coordinates, the Jacobian, and the 
metric coefficients. 
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Subroutine OUTPUT (LEVEL) 

Called by 

Calls 

Purpose 

MAIN 

METS 

PRTOUT 

Manage printing of output. 


Input 

♦ ALPHA 1, ALPHA2 

CP, CV 

DTAU 

DUMMY 

DXI, DETA 

ETAX, ETAY, ETAT 

♦ GAMR 
GC 

♦ IVOUT 
JI 

LEVEL 

♦ MAC HR 
MU, LA, KT 

MUT 

♦ NOUT 

♦ Ml, N2 
P, T 
PR 
PRR 

♦ PRT 
RGAS 

RIIO, U, V, W, ET 

♦ RIIOR, TR, UR 
TAU 

X, Y 

XIX, XIY, XIT 

Output 

ATITLE 

DUMMY 


Spatial difference centering parameters a, and ot 2 , for the s and rj 
directions. 

Specific heats c p and c„. 

Time step Ar. 

A two-dimensional scratch array DIMENSION'ed (N1P,N2P). 
Computational grid spacing A£ and A r\. 

Metric coefficients rj x , y] y (or tj, if axisymmetric), and rj t . 

Reference ratio of specific heats, y r . 

Proportionality factor g c in Newton's second law. 
flags specifying variables to be printed. 

Inverse Jacobian of the nonorthogonal grid transformation, ./ '. 
Time level to be printed. 

Reference Mach number M r . 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k. 

Turbulent viscosity coefficient p r 

Unit number for standard output. 

Number of grid points A", and N 2 , in the £ and >7 directions. 

Static pressure p and temperature T. 

Reference pressure p r . 

Reference Prandtl number Pr,. 

Turbulent Prandtl number Pr,. 

Gas constant R. 

Static density p, velocities u, v, and w, and total energy E T . 
Reference density p„ temperature T„ and velocity u,. 

Time value t. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 
Metric coefficients { x , (or if axisymmetric), and 


A 20-character title for variable being printed. 

A two-dimensional array containing the variable to be printed. 
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Description 


Subroutine OUTPUT manages the printing of the standard output. The variables available for printing 
are listed and defined in Table 3-3 of Volume 2. The user- specified array 1VOUT controls which variables 
are printed. 

Each variable to be printed is stored, in turn, in the scratch array DUMMY, from the common block 
DUMMY!. The title printed with the variable is stored in the character array ATITUE. Subroutine 
PRTOUT is then called to execute the actual write statements. 

Remarks 


1. A warning message is printed if a non-existent output variable is requested. The printout will continue 
with the next requested output variable. 

2. For output options 30, 31, 34, and 35, involving the pressure p , the value stored internally in the 
PROTEUS code is redefined as follows: 


P=P 


2 

Pr u r 

PrSc 


This isjiecessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T r , while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n — p r uf. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

3. The definitions of k l and k t (IVOUT = 92 and 102) assume a constant turbulent Prandtl number is 
being specified in namelist TURB. If the input value of PRT < 0, indicating the use of a variable tur- 
bulent Prandtl number, the printed values of k { and k ( will be incorrect. 
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Subroutine PAK (IDIR,NOLDl,NOLD2) 

Called by 

Calls 

Purpose 

GF.OM 

CUBIC 

ROBTS 

Manage packing and/or interpolation of grid points. 


Input 

IDIR 

+ IPACK 

NOLD1, NOLD2 

* Nl, N2 

* SQ 
X, Y 


Output 

X, Y 


Description 


Direction flag; 1 if grid points are being redistributed in the £ di- 
rection, 2 if in the direction. 

Flags for grid packing option. 

Number of grid points in the £ and y\ directions in the original 
grid. 

Number of grid points A\ and A T 3 , in the £ and t) directions in the 
new grid. 

An array specifying the location and amount of packing. 

Cartesian coordinates x and y , or cylindrical coordinates x and r, 
in the old grid. 


Cartesian coordinates x and y , or cylindrical coordinates x and r, 
in the new grid. 


Subroutine PAK manages the redistribution of-the user- specified points in the computational coordinate 
system. It is called whenever grid packing is used. It is also called when interpolation is necessary because 
the computational coordinates are specified by reading them from a separate file (the NGEOM = 10 option 
in subroutine GEOM), and the number of points in the file is different from the number of points to be 
used in the calculation. PAK is called once for each direction in which points are being redistributed. 


The steps involved in subroutine PAK are described below. For clarity, this discussion assumes 
IDIR = 1 (i.e., we are redistributing points in the £ direction.) An exactly analogous procedure is used for 
IDIR = 2. 


1. Set NNEW and NOLD equal to the index limits in the £ direction for the new and old grids. Also set 
NOPP equal to the index limit in the rj direction for the old grid. 

2. Get (a P ) h the normalized physical arc length along a coordinate line in the £ direction, from the begin- 
ning of the line to each grid point in the new grid. The normalizing distance is the total arc length of 
the line, and thus these arc lengths apply to any coordinate line in the £ direction. If the points are not 
being packed in the £ direction, but only interpolated, then 

, , i — 1 

{ap)i ” NNEW - 1 

for /=1 to NNEW. In the new grid, the points will thus be evenly distributed in physical space along 
each coordinate line in the £ direction. If the grid points are being packed in the £ direction, subroutine 
ROBTS is called to compute ( a P ) ( from the packing parameters specified by the user. 

3. Begin loop from 10PP = 1 to NOPP. This loop thus runs over the points in the r] direction in the old 
grid. We will be redistributing points in the £ direction for each y] value in the old grid. 
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4 . 


Get (a UP ) lt the normalized physical arc length along a coordinate line in the £ direction, from the 
beginning of the line to each grid point in the old grid. These values are found by first computing 
the non-normalized arc lengths, as follows: 


( a up) l — 0 

(flvp)i = ( a up)t- 1 + V ( x u - X i-\J ) 2 + 0/.7 -V/— i ,y) 2 


for / = 2 to NOLD1. These values are normalized by setting 


( a L T p)i - 


( a UP)i 

( a t/p)NOLDl 


for i— 1 to NOLD1. To eliminate any problems with roundoff error, (%j>) NO ldi IS explicitly set 
equal to 1. 

5. Given x and a UP for the old grid, and a P for the new grid, call CUBIC to interpolate for x in the 
new grid. Similarly interpolate for y. 

6. Redefine the Fortran variables X and Y as the x and y coordinates in the new grid. 

7. End of loop over the points in the rj direction in the old grid. 


Remarks 

1. In the Fortran code, the comments sometimes refer to the "packing" direction. This terminology ac- 
tually means the direction in which grid points are being redistributed, even if they are not being packed 
but only interpolated. Similarly, references to the "packed" and "unpacked" grid actually mean the new 
and old grids. 
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Subroutine PERIOD 


Called by 


EXEC 



Purpose 


Define extra line of data for use in computing coefficients for spatially 
periodic boundary conditions. 


CP, cv 

ETAX, El AY, ETAT 
JI 

KBCPER 

MU, LA, KT 

NPT1 

♦ N1,N2 

P, T 

RHO, U, V, W, ET 
RHOL, UL, VL, WE, ETL 


XIX, XIY, XIT 


Output 


Specific heats c p and c„ at time level n. 

Metric coefficients rj x , rj y (or v\ r if axisymmetric), and rj r 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

Elags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, 1 for periodic. 

Effective coefficient of viscosity yt, effective second coefficient of 
viscosity X, and effective coefficient of thermal conductivity k. 

N x for non-periodic boundary conditions, N x + 1 for spatially pe- 
riodic boundary conditions in f . 

Number of grid points h\ and N 2} in the £ and yj directions. 

Static pressure p and temperature T at time level n. 

Static density p, velocities w, v, and w, and total energy E r at time 
level n. 

Static density p, velocities w, v, and w, and total energy E r from 
previous ADI sweep. 

Static temperature T from previous ADI sweep. 

Metric coefficients £ x% (or if axisymmetric), and £ r 


All of the flow and metric-related input parameters listed above, at / = N x + 1 for periodic boundary 
conditions in the £ direction, and at j = N r 2 + 1 for periodic boundary conditions in the v\ direction. 

Description 

Subroutine PERIOD adds, in effect, an additional set of points at i=N\ + 1 for periodic boundary 
conditions in the £ direction, and at y = jV 2 + 1 for periodic boundary conditions in the rj direction. This 
allow s us to use central differencing in the periodic direction, at / = Ay and/or j = iV 2 , computing the coeffi- 
cient submatrices and source term subvector in the same way as at the interior points. 30 

For periodic boundary conditions in the £ direction, the extra points are added by setting 

//v, +\,j=f2,j 

where j = 1 to A r 2 , and /represents one of the flow variables or metrics. Similarly, extra points are added 
at (/, N 2 + 1) for periodic boundary conditions in the yj direction. 


See Section 8.2.2 of Volume 1 for details on the solution procedure for spatially periodic boundary conditions. 
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Remarks 


1 . The loop defining the extra points for periodic boundary conditions in the £ direction runs in the 17 
direction from 1 to N2. For periodic boundary conditions in the >7 direction, however, the corre- 
sponding loop runs in the c direction from 1 to NPT1, not Nl. If the q boundary’ conditions are 
non-periodic, NPT1 = NT. If periodic boundary conditions are being used in both directions, however, 
NPT1 = NT + 1 , and using NPT1 as the upper limit on the loop is necessary’ to define the new comer 
point at (A r j 4- \ y N 2 -f 1). 
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Subroutine PLOT (LEVEL) 


Called by 


MAIN 


Purpose 


Write files for post-processing by CONTOUR or PLOT3D plotting 
programs. 


CP, cv 
ETAX, ETAY 

♦ GAMR 
GC 

♦ IPLOT 
LEVEL 


♦ LR, UR, RHOR, TR 

♦ MACHR 

♦ NPLOT 

♦ NPLOTX 

♦ NSCR1 

♦ Nl, N2 
P, T 
PR 

♦ RER 

♦ RG 
RGAS 

RHO, U, V, W, ET 
TAU 

♦ TITLE 
X, Y 

XIX, XIY 


Output 


None. 


Specific heats c p and c„. 

Metric coefficients r\ t and rj y (or tj r if axisymmetric). 

Reference ratio of specific heats, y r 

Proportionality factor g c in Newton's second law. 

Flag specifying type of plot file to be written. 

Time level to be written into the file (0 for initialization, and - 1 
to read the scratch file and write XYZ and Q fdes with the 
IPLOT = —3 option). 

Reference length L r , velocity u r , density p„ and temperature T r . 
Reference Mach number M r . 

Unit number for writing CONTOUR file, or PLOT3D Q file. 
Unit number for writing PLOT3D XYZ file. 

Unit number for scratch file. 

Number of grid points V, and N 2 , in the £ and rj directions. 

Static pressure p and temperature T. 

Reference pressure p r . 

Reference Reynolds number Re r . 

Dimensional gas constant R . 

Dimensionless gas constant R. 

Static density p, velocities u, v, and w, and total energy E r . 

Current time value r. 

Case title. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 
Metric coefficients and £ y (or £, if axisymmetric). 


Description 


Subroutine PLOT writes a fde or fdes, commonly called plot fdes, for post-processing by the CON- 
TOUR or PLOT3D plotting programs. The type of fdes written is controlled by the user- specified pa- 
rameter IPLOT. The format and contents of the different types of plot fdes are described in detail in Section 
4.2 of Volume 2. They are therefore described only briefly here. 
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CONTOUR Plot. File (IPLOT 1) 


If IPLOT = 1, a CONTOUR plot file is written with the title and reference conditions included at each 
time level. The value of n is written into the header for each time level, but t, the tune itself, is not written 
into the file. No initialization step is necessary’. 

If IPTOT = -1, a CONTOUR plot file is also written, but the title and reference conditions are written 
only at the beginning of the file. In addition the time t,_, is written into the file at each time level. In this 
case the initialization step consists of writing the title and reference conditions at the beginning of the file. 


PTOT3DI WHOLE Plot Files (IPLOT = 2) 

If IPLOT = 2, XYZ and Q files arc written in PLOT3D WHOLE format. The XYZ file is written only 
during the initialization step. 1 he Q file is written at each tune level requested by the user. I he 0 tile will 
thus consist of multiple sets of data, each containing the computed results at a single time level. 1 he time 
r, , is written into the header for each set of data in the Q file. Since PRO I LUS 2-D is two-dimensional, 
N3, the number of points in the z direction in the XYZ and Q files, is set equal to 1 . 

PLOT3DI PLANES Plot Files (IPLOT = 3) 

If IPLOT = 3, XYZ and Q files are written in PLOT3D/PI.ANHS format. Since PROTEUS 2-D is 
two-dimensional, N3, the number of points in the z direction in the XYZ and Q tiles, is set equal to 1. 
This makes the XYZ and Q files identical to those created using the IPLOT = 2 option. 


PLOT3DI PLANES Plot Files ( IPLOT = -3) 

The files created with this option are similar to those created with the IPLOT = 3 option, except the 
time r, . is written into the z slot in the XY'Z file, and the number of points in the "z" direction is set equal 
to the number of time levels in the XY Z and Q files. 

However, because the calculation may converge or become non-physical, the number of time levels that 
end up being written into the files is not known until the end of the PRC) ILLS run. Ihcrefore, as the 
calculation proceeds the results are actually written into a scratch file. N3, the counter for the number of 
time levels, is set equal to zero in the initialization step and updated each time a time level is added to the 
scratch file. At the end of the PROTEUS run the scratch file is read and the XY 7 Z and Q files are written. 

PLOT2D Plot Files UP LOT = 4) 

If IPLOT = 4, XYZ and Q files arc written in PLOT3D s 2D format. The XY r Z file is written only 
during the initialization step. The Q file is written at each time level requested by the user. The Q file will 
thus consist of multiple sets of data, each containing the computed results at a single time level. The time 
t, , is written into the header for each set of data in the Q tile. 

Remarks 

1. For the CONTOUR plot file, the IPLOT = -1 option is the better one to use. The IPLOT = 1 option 
is included only to be consistent with the various PLOT3D options. 

2. In defining the pressure to be written into the CON I OUR plot file, the value stored internally in the 
PROTEUS code is redefined as follows: 


This is_necessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T„ while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n = ptf. Sec Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 
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3. The current version of PLOT3D does not work for multiple time levels, although future versions might. 
Thus the I PLOT = 2, 3, and 4 options, while containing multiple time levels, cannot easily be used to 
create plots showing the time development of the flow. You can, however, fake it out using the 
I PLOT = —3 option. With this option, plots can be generated at different time levels by plotting at 
different PLOT3D "z" stations. 

4. Note that the time t u written into the Q fde header with the IPLOT = 2, 3, and 4 options is the time 
at the point £ = y\ = 0. If the input variable IDTAU = 5 or 6, r will vary in space and therefore 

T iyj ^ T U- 

5. To save storage, the Fortran variable S, which is normally used for the source term subvector in the 

block tridiagonal system of equations, is used to store the Q variables that are written into the PLOT3D 
Q file. * 

6. PLOT3D assumes that velocity is nondimensionalized by the reference speed of sound a r = (y r RT)'i 2 , 
and that energy is nondimensionalized by ptf. In PROTEUS these variables are nondimensionalized 
by u r and p f u , ?. That is why the reference Mach number M r appears in the definitions of S(„2) through 
S(,,5). 

7. An error message is generated and execution is stopped if an illegal plot file option is requested. 
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Subroutine PRTHST 


Called by 

Calls 

Purpose 

MAIN 


Print convergence history'. 


Input 


* ICIIECK 

* IRESI 

IT 

I I BEG 

NC, NX\I, NYM, NZM, NEN 


NEQ 

* NHIST 

* NHMAX 


♦ NOUT 


Convergence checking interval. 

Flag for restart file; 0 for no restart file, 1 to write a restart file, 2 
to read and write a restart file. 

I.^ast computed time step number rt. 

The time level n at the beginning of a run. 

Array indices associated with the continuity, x-momentum, 
j-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Number of coupled equations being solved, N eq . 

Unit number for convergence history file. 

Maximum number of time levels allowed in the printout of the 
convergence history file (not counting the first two, which are al- 
ways printed.) 

Unit number for standard output. 



Description 


Subroutine PRTHST prints the convergence history as part of the standard output. The information 
is obtained from the unformatted convergence history file written in subroutine RES ID. The parameters 
printed are described in Section 4.1.5 of Volume 2, and the unformatted convergence history file is described 
in Section 4.3 of Volume 2. To avoid undesirably long tables, the convergence parameters are printed at 
an interval that limits the printout to NHMAX time levels. As described in Section 4.1.5 of Volume 2, 
however, they are always printed at the first two time levels. 
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Subroutine PRTOUT (ATITLE, LEVEL, A VAR) 

Called by 

Calls 

Purpose 

OUTPUT 


Print output. 

Input 



ATITLE 

AVAR 

DIAL 

* IDTAU 

+ IPRT1A, IPRT2A 
LEVEL 

* ER, UR 

* NOUT 
NPRT1. NPRT2 
TAU 

A 20-character title for variable being printed. 

A two-dimensional array containing the variable to be printed. 
Time step At. 

Flag for time step selection method. 

Indices for printout in the £ and rj directions. 

Time level to be printed. 

Reference length L f and velocity u r 
Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 
Current time value t. 


Output 


None. 

Description 

Subroutine PR 1 OUT performs the actual printing of the standard output file. It prints the variable 
AVAR, with the title ATITLE. The output is printed in columns running in the y direction. The rows 
run in the £ direction. If the results at every grid point are printed, there will be a total of V, columns, each 
with N 2 rows. The columns are grouped in super-rows of up to 10 columns each. 

The steps involved are as follows: 

1. Set the total number of columns, and rows per super-row. 

2. Redefine AVAR, the input array containing the variable to be printed, including only the elements re- 
quested. 

3. Determine the number of super-rows. If NCOL is not exactly divisible by 10, the last super-row will 
have less than 10 columns. 

4. Print the title for the variable. If the time step is constant in space, the dimensional time t and time step 
At are printed with the title. 

5. Begin loop over the number of super-rows. 

6. Set NCI and NC2 equal to the number of the first and last column in this super-row. (I.e, for the 
first super-row ; NCI and NC2 will be 1 and 10, for the second they will be 1 1 and 20, etc. For the 
last super-row, NC2 will be NCOL.) 

7. Print the heading for the super-row, labeling each column with the proper £ index. 

8. Print the super-row itself, labeling each row with the proper rj index. 

9. End of loop over the number of super-rows. 
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Subroutine RESID (IAVR) 

Called by 

Calls 

Purpose 

EXEC 

IS A MAX 
SASUM 
SNR M2 

Compute residuals and write convergence history file. 


Input 


CIIGAVG 


CHGMAX 


DTAIJ 

DUMMY 

* HPS 

I AYR 

* IAV2E, IAV4E 

* ICFIECK 

* ictest 

* IDTAU 

* IIISTAG 

* ISWIRL 

II 

ITBEG 

* UR, UR 
NEQ 

+ NHIST 

* NITAVG 
NP 11, NPT2 

* N1,N2 
S 

TAU 

Output 

LRMAX 


RHSAVG 

REST2 


Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ a „ r 

Maximum change in absolute value of the dependent variables 
over previous time step (or NITAVG — 1 time steps if 
ICIEST = 2), AQ,„ JX . 

l ime step At. 

A two-dimensional scratch array. 

Convergence level to be reached, e. 

Flag specifying whether residual is computed without or with the 
artificial viscosity terms; 1 for without, 2 for with. 

Flags for second- and fourth-order explicit artificial viscosity. 

Convergence checking interval. 

Flag for convergence criteria to be used. 

Flag for time step selection method. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

The time level n at the beginning of a run. 

Reference length L e and velocity u r . 

Number of coupled equations being solved, N er 

Unit number for convergence history file. 

Number of time steps in moving average convergence test. 

N x and N 2 for non-periodic boundary conditions, i\\ + 1 and 
A 2 *f 1 for spatially periodic boundary conditions in £ and rp 

Number of grid points N x and N 2 , in the £ and r} directions. 

Source term subvector S for first ADI sweep. 

Current time value r. 


Grid indices / and y, in the £ and rj directions, corresponding to the 
location of RESMAX. 

The average absolute value of the residual, R avg . 

The norm of the residual, R L2 . 
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RFSMAX 


The maximum absolute value of the residua], R 


Description 

Subroutine RESID computes various measures of the residual, and writes the convergence history file. 

For problems without artificial viscosity, the steady-state form of the governing partial differential 
equations can be written as 


Q _ dE dF &v 

d£ dt] d£ df] 

The residual is defined as the number resulting from evaluating the right hand side of the above equation. 
For first-order time differencing, this is simply the source term for the first ADI sweep, divided by the time 
step At . 31 The residual at a specific grid point and time level is thus 

Rlj = Sll(Ar)ij 

where S is the source term for the first ADI sweep. Separate residuals are computed for each governing 
equation. 


Adding artificial viscosity, however, changes the governing equations. With artificial viscosity, the dif- 
ference equations actually correspond to the following differential equations at steady state. 32 


0 = - 


+ 


dE 



J 



d¥ dEy d¥ v 

dr, d£ + dr, 


(M ) 2 

(^) 4 


^ 2 (-/Q) 

d\jQ) 

A 


+ (W 2 
+ ( At lf 


d 2 (JQ) 

dr , 2 

Ajq) 

dr , 4 


For cases run with artificial viscosity, therefore, the residual should include the explicit artificial viscosity 

terms. The implicit terms do not appear, since they difference AQ, and in the steady form of the equations 

AQ = 0 . Since the explicit artificial viscosity terms are added to the source term for the first ADI sweep, 
they are automatically included in the residual. 


Three measures of the residual are computed for each governing equation - the L ^ norm of the residual, 
the average absolute value of the residual, and the maximum absolute value of the residual. In addition, 
the (i^) indices corresponding to the location of the maximum residual are saved. The norm of the 
residual is defined as 


MIM" 

In computing the residuals, the summations, maximums, and averages are over all interior grid points, plus 
points on spatially periodic boundaries. 


31 Sec equation (8.5a) in Volume 1. For first-order time differencing, 0 2 = = 0. 

32 These equations represent the use of the constant coefficient artificial viscosity model. The nonlinear coefficient 
model is more complicated, but the same principle applies. 
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For cases run with artificial viscosity, subroutine RFSID is called from EXEC both before and after the 
artificial viscosity terms have been added to the equations. The residuals are thus computed both with and 
without the artificial viscosity terms. This may provide some estimate of the overall error in the solution 
introduced by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity 
terms included. 

In addition to computing the residuals, subroutine RESID writes the convergence history file. The 
contents and format of this file are described in detail in Section 4.3 of Volume 2. 

Remarks 


1. The Cray BLAS routines SNRM2, ISAMAX, and SASUM are used in computing the L ^ norm of the 
residual, the maximum absolute value of the residual, and the average absolute value of the residual, 
respectively. 

2. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
residual at each grid point. 
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Subroutine REST (lOPT) 


Called by 

Calls 

Purpose 

INITC 

MAIN 

METS 

Read and/or write restart file. 

Input When Reading the Restart Eile 

♦ GAMR 


Reference ratio of specific heats, y r . 

♦ IIS I AG 


Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

♦ IHSTAG 


Flag for constant stagnation enthalpy option. 

IOPT 


f lag specifying I/O operation; 1 to read, 2 to write. 

♦ NRQIN 


Unit number for reading the restart flow field. 

♦ NRXIN 


Unit number for reading the restart computational mesh. 

RGAS 


Dimensionless gas constant R. 

Input When Writing the Restart Eile 

IOPT 


Mag specifying I/O operation; 1 to read, 2 to write. 

IT 


Current time step number n. 

* MACIIR 


Reference Mach number M r . 

NRQOIJT 


Unit number for writing the restart flow field. 

+ NRXOUT 


Unit number for writing the restart computational mesh. 

* NT, N2 


Number of grid points N x and V 2 , in the £ and )/ directions. 

RHR 


Reference Reynolds number Re r . 

RHO. U, V, 

w, Er 

Static density p, velocities u , v, and w, and total energy E r at time 
level n 4- 1 . 

RHOL, UU, 

VI, WL, H I T 

Static density p t velocities u , v, and w, and total energy E T at time 
level n. 

tai; 


Computational time t at time level n + 1. 

X, V 


('artesian coordinates x and y, or cylindrical coordinates x and r. 


Output When Reading the Restart File 


DXI, DETA 
ITBEG 
MACIIR 
NT, N2 
RER 

RHO, L\ V, W, ET 
R HO I , uu, vl, wi, etu 


Computational grid spacing A£ and Arj. 

The time level n at the beginning of the new run. 

Reference Mach number M f . 

Number of grid points N x and A ! 2 , in the £ and >7 directions. 
Reference Reynolds number Re r 

Static density p, velocities u, v, and vv, and total energy E T at time 
level ITBEG. 

Static density p , velocities u, v, and w, and total energy E r at time 
level ITBEG- 1. 
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T, TL 
TAU 
X, Y 

Output When Writing the Restart File 

None. 

Description 

Subroutine REST reads and/or writes the restart files. Restarting a calculation requires two unformatted 
files - one containing the computational mesh and one containing the flow field. 

If subroutine REST is being used to read the restart files, the computational mesh is first read from unit 
NRXIN. The grid increments A£ and A>? are then set, and subroutine METS is called to compute the 
metric coefficients and the Jacobian of the grid transformation. 

The flow field file is read next, from unit NRQIN. It normally contains the results at the last two time 
levels that were computed during the previous run. If only one level is present in the file, however, the re- 
sults at level n — 1 are set equal to those at level n. The beginning time level for the time marching loop is 
set equal to the level stored in the restart file. The flow field variables in the restart file are the conservation 
variables Q, nondimensionalized as in the plotting program PLOT3D. 33 They therefore must be converted 
into the primitive variables used in PROTEUS. The temperature is then computed from the perfect gas 
equation of state, with c p and c v defined using the input reference conditions. 

When writing the restart files, the file containing the computational mesh is v/ritten onto unit 
NRXOUT. The primitive flow variables are then redefined as conservation variables and 
nondimensionalized as in PLOT3D. They are then written onto unit NRQOUT. 

Remarks 

1. If, in the input namelist RS I RT, NRXOUT and NRQOUT are set equal to NRXIN and NRQIN, 
respectively, the output restart files will overwrite the input restart files. 

2. Except for the variables at time level n— 1, the restart files have the same format as the XYZ and Q files 
created using the IPLOT = 2 and 3 options. These restart files can thus also be used as XYZ and Q 
files for the PLOT3D plotting program. Since N3 = 1, the n — 1 level wall not be read by PLOT3D. 

3. The temperature T is computed using the equation of state, which contains a specific heat coefficient 
(either c or depending on whether the stagnation enthalpy is assumed constant or not.) In sub- 
routine REST, a constant value of specific heat is used, consistent with the reference temperature T r . 
If the user specified constant specific heat (i.e., a value for y r was read in), this is not a problem. 
However, if the temperature-dependent specific heat option is being used (i.e., a value for y r was not 
read in), the equation of state and the empirical equation for specific heat are coupled. For this reason, 
in INITC (the routine that calls REST), T is recomputed by calling EQSTAT after the specific heats 
have been computed in FTEMP. Ideally, this coupling would be handled by iteration between 
FTEMP and EQSTAT. This is not currently done in PROTEUS, however. 


Static temperature T at time levels ITBEG and ITBEG — 1. 
Computational time r at time level ITBEG. 

Cartesian coordinates * and y, or cylindrical coordinates x and r. 


33 See Sections 4.2.3 and 4.4 of Volume 2. 
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Subroutine ROBTS (NP,A,B,XP) 


Called bv 



Purpose 


Pack points along a line using Roberts transformation. 


Output 


Description 


Parameter a in Roberts transformation formula specifying lo- 
cation of packing: 0.0 to pack near XP = 1 only, 1.0 to pack near 
XP = 0 only, and 0.5 to pack equally at XP = 6 and 1.0. 

Parameter /? in Roberts transformation formula specifying amount 
of packing. A value approaching 1.0 from above gives denser 
packing. 

Number of grid points along the line. 


Coordinates of packed grid points along the line. 


Subroutine ROBTS packs points along a line of length one using a transformation due to Roberts 
(1971). The basic transformation is given by 

(P + 2 «)/?f « -p + 2<x 


(2a + l)(l + pf x ) 


where 


x up — a 


and x p and x up are the packed and unpacked (i.e., evenly spaced) coordinates along the line. The parameter 
a determines the packing location. For a = 0, the points will be packed only near x P — 1, and for a = 1/2 
the points will be packed equally near x P = 0 and x P = 1. The packing parameter (5 determines the amount 
of packing. It is a number greater than 1, but generally 1.1 or below. The closer ^ is to 1, the tighter the 
packing will be. 

It may seem logical to set a = 1 to pack points near x P = 0. With the basic transformation, however, 
this doesn't work. In PROTEUS we get around this problem by replacing a in the above transformation 
with a w , where ct w = a if a = 0 or 1/2, and a w = 0 if a = 1. If a = 0 or 1/2, no further action is necessary. 
If x — 1, however, w r e must invert the resulting x P values and re-order the indices. I.e., for /'= 1 to NP, we 
set 

( x Pl)i — 1 “ ( x p)i 

After this operation, the array x PI will run from 1 to 0, packed near 1. To re-order the indices, for / — 1 to 
NP we set 

( x p)sp-i + 1 = i x Pl)i 
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After this operation, x P will run from 0 to 1 , packed near 0. 

Finally, to ensure round-off error doesn't affect the endpoint values, we set (x^), = 0 and (x P ) NP — 1 . 

Remarks 

1. The namelist input variable SQ(IDIR,1), which is used to specify the packing location in direction 
IDIR, is actually equal to 1 - a. Therefore, setting SQ(IDIR,l) = 0 results in packing near the f or 
rj = 0 boundary , and SQ(IDIR,1) = 1 results in packing near the ^ or 17 = l boundary. 
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Function SASUM (N,V,INC) 

Called by 

Calls 

Purpose 

RESID 


Compute the sum of the absolute values of the elements of a vector. 


Input 


N 

V 

INC 


Output 


Number of elements in the vector to be summed. 
Vector to be summed. 


Skip distance between elements of V. For contiguous elements, 
INC = 1. 


SASUM 


Sum of the absolute values of the elements of V. 


Description 


Function SASUM computes the sum of the absolute values of the elements of a vector. For a one- 
dimensional vector, the use of SASUM is straightforward. For example, 


NP 

SASUM(NP,V,1) = ^]k / 
<=1 


A starting location can be specified, as in 


NP 

SASUM(NP - 4,V(5),1) = 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDI.V12, then 

NDIMl NDIM2 

SASUM(NDL\1 1 *NDIM2,A,1) = A i} 

i=i j=\ 

One dimension at a time can also be summed. For example, 

NDIMl 

SASUM(XDIM1,A(1,5),1)= £ A liS 

i=] 


Similarly, by specifying a skip increment, 


NDIM2 

SASUM(NDIM2,A(5,1), NDIMl) = ^ A SJ 

j= i 


Remarks 

1. SASUM is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1988b). 
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Subroutine SGEFA (A,LDA,N,IPVT,INFO) 

Called by 

Calls 

Purpose 

BCniJM 

BVLT 

ISAMAX 

Factor a matrix using Gaussian elimination. 


Input 

A An array containing the matrix A to be factored, dimensioned as 

A(LDA,N). 

I DA flic leading dimension of the array A. 

N 1 he order of the matrix A. 

Output 

A An upper triangular matrix and the multipliers which were used 

to obtain it. The factorization can be written as A — IX, where 
U is a product of permutation and unit lower triangular matrices, 
and l j is upper triangular. 

IPVT A vector of length N containing pivot indices. 

IM O An error flag: 0 for normal operation, k if V kk = 0. 

Description 

Subroutine SGEFA is used in combination with subroutine SGHSI, to solve the matrix equation 
Ax — B. If the Fortran arrays A and B represent A and B, where A is a square N by N matrix and B is a 
matrix (or vector) with NCOL columns, and if the leading dimension of the Fortran array A is FDA, then 
the Fortran sequence 

CALL SGEFA ( A, LDA, N, IPVT, INFO) 

DO 10 J = 1 , NCOL 

CALL SGESL C A,LDA ; N, IPVT, B( 1 , J ) , 0 ) 

10 CONTINUE 


computes A ] B, storing the result in B. 

Remarks 

1. SGEFA is a Cray UNPACK routine (Cray Research, Inc., 1988b). 
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Subroutine SGESL (A,LDA,N,IPVT,B,JOB) 

Called by 

Calls 

Purpose 

BCELIM 

BVUP 


Solve the matrix equation Ax = B or A T x = B using the factors com- 
puted by SGEFA. 

Input 



A 


The two-dimensional output array A from SGEEA containing the 
factorization of matrix A. 

B 


The right-hand side vector B. 

I PVT 


The output array IPVT of pivot indices from SGEFA. 

JOB 


Flag specifying type of matrix equation: 0 to solve Ax = B; non- 
zero to solve A T x — B. 

EDA 

N 


The leading dimension of the array A. 
The order of the matrix A. 

Output 



B 


The solution vector x. 


Description 

Subroutine SGESL is used in combination with subroutine SGEFA to solve the matrix equation 
Ax — B. See the description of subroutine SGEEA for details. 

Remarks 

1. SGESL is a Cray UNPACK routine (Cray Research, Inc., 1988b). 
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Function SNRM2 (N,V,INC) 

Called by 

Calls 

Purpose 

RESID 


Compute the Z^ norm of a vector. 


Input 

N 

The number of elements in the vector V. 

V 

The vector whose norm is to be computed. 

INC 

Skip distance between elements of V. For contiguous elements 
INC = 1. 

Output 

SNRM2 

The Z^ norm of the vector V. 


Description 


Function SNRM2 computes the L, norm of a vector. For a one-dimensional vector, the use of SNRM2 
is straightforward. For example, 


SNRM2(NP,V,1) = 




1/2 


A starting location can be specified, as in 


SNRM2(NF — 4,V(5),1) = 




1/2 


Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2, then 


SNRM2(NDIM 1 *NDIM2,A,1) 




1/2 


One dimension at a time can also be summed. For example, 


SNRM2(NDIM1,A(1,5),1) 



1/2 


Similarly, by specifying a skip increment, 


PROTEUS 2-D Programmer's Reference 


PROTEUS Subprograms: SNRM2 231 




S N R \12( NDIM2,A(5, 1 ),N DIM 1 ) 



Remarks 

1. SNRM2 is a Cray BI AS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1988b). 
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Subroutine TBC 

Called by 

Calls 

Purpose 

MAIN 


Set time-dependent boundary condition values. 


Input 

♦ GTBC1, GTBC2 
IT 

ITBEG 

ITEND 

♦ JBC1.JBC2 

♦ JTBC1, JTBC2 

NBC 

NEQ 

♦ NOUT 

♦ NTBC 

♦ NTBCA 

♦ Nl, N2 
Output 

FBC1, FBC2 

GBC1, GBC2 


Time-dependent surface boundary condition values for the £ and 
t] directions. 

Current time step number n. 

The time level n at the beginning of a run. 

Final time step number. 

Surface boundary condition types for the £ and >7 directions. 

Flags for type of time dependency for boundary conditions in the 
£ and ^'directions. 

Cray PARAMETER specifying number of boundary conditions 
per equation. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points N t and N 2 , in the £ and tj directions. 


Point-by-point boundary condition values for the s and tf di 
rections. 

Surface boundary condition values for the t, and »; directions. 


Description 

Subroutine TBC sets time-dependent boundary condition values. Two types of time dependency are 
allowed - general and periodic. 


General Time-Dependent Boundary Conditions 

General time-dependent boundary conditions are set using linear interpolation on an input table of 
boundary condition values vs. time level. Thus, the boundary condition value is 


Here n is the current known time level in the time marching scheme, and n, represent the input table of 
boundary condition values vs. time level, and / is the index m the table for which 

n\ < n + 1 < n\ +X 
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If « + 1 < /i>, then g n ‘ l is set equal to the first value in the table, g}. Similarly, if n + 1 > n”, where N is the 
index of the last entry in the table, then g”' 1 is set equal to the last value in the table, gf . 

In Fortran, g = GBC 1 or GBC2, g, = GTBC 1 or GTBC2, n, = NTBCA, and N = NTBC. 

Time- Periodic Boundary Conditions 

I ime-periodic boundary conditions (not to be confused with spatially periodic boundary conditions) are 
of the form 

S n+l = <?/' +gj sin[ ft 3 («+ 1) +g*~\ 

where g] through gf are given by the first four elements of GTBC 1 or GTBC2. 

Remarks 

I . An error message is generated and execution is stopped if an invalid type of unsteadiness is requested 
for the boundary values. 
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Subroutine TIMSTP 

Called by 

Calls 

Purpose 

MAIN 

1SAMAX 

Set computational time step. 


Input 

* CELMIN, CEEMAX 


CIIGMAX 


* CHG1, CHG2 


CP, CV 

♦ DT 

dtai; 

♦ DIM, DI F 2 

♦ DIM IN, DTMAX 

DXI, DETA 
ETAX, ETAY, ETAT 

♦ IDTAU 

IT 

ITSEQ 

♦ NDTCYC 
NEQ 

♦ NOUT 

♦ NT, N2 
RGAS 

1 

U, V 

XIX, XIY, XI I 

Output 

♦ CEE 

DTAU 


Minimum and maximum CEE numbers allowed in ID1 AE — 2 
and 6 options. 

Maximum change in absolute value of the dependent variables 
over previous time step (or NIIAVG— 1 time steps if 
ICTEST = 2), AQ_. 

Minimum and maximum change, in absolute value, that is al- 
lowed in any dependent variable before increasing or decreasing 
At in IDTAU = 2, 4, and 6 options. 

Specific heats c p and c v at time level n. 
lime step At in IDTAU = 3 and 4 options. 

Old computational time step At. 

Factors multiplying or dividing At if solution changes too slowly 
or quickly in ID I AU = 2, 4, and 6 options. 

Minimum and maximum At allowed in IDTAU =4 option, or 
used in IDTAU = 7 option. 

Computational grid spacing A£ and Arp 

Metric coefficients rj y (or jj f if axisymmetric), and ip. 

Flag for time step selection method. 

Current time step number rt. 

Current time step sequence number. 

Number of time steps per cycle for IDTAU = 7 option. 

Number of coupled equations being solved, N tq . 

Unit number for standard output. 

Number of grid points iV t and 1 V 2 , in the { and rj directions. 

Gas constant R. 

Static temperature T at time level n. 

Velocities « and v at time level rt. 

Metric coefficients (or if axisymmetric), and 


New CEE number in IDTAU = 1, 2, 5, and 6 options. 
New computational time step At. 


Description 

Subroutine TIMSTP computes the time step size At. The following sections desenbe the various 
methods currently available for setting and/or modifying At. 
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IDTAU = / 


This option sets a global (i.e constant in space) time step At equal to the minimum of the values at 
each gnd point computed from the input parameter CFL(ITSEQ). I.e., 

( Ar )/j = (CFL) min(AT cy7 ) ( - y 

where At c/7 is the inviscid CFL limit, given in generalized coordinates as (Shang, 1984). 


At c/1 = 


U 

A£ 


+ 


A»? 


+ a 


£x 4x 

A{ A*, 


Y 


1/2 -1 


Here U + £ y v and L- > 7 , + r},u + are the contravariant velocities without metric normaliza- 

tion, and a = JyRT is the speed of sound. 

IDTAU = 2 

For the first time step, this option is identical to the IDTAU = 1 option. After the first time step 
however CFL is modified to keep AQ^, the maximum change in absolute value of the dependent van- 
fows S Wlt ™ n user ' s P ec ‘fied l 1111115 - The rules used to increase or decrease CFL may be summarized as fol- 


< CHG 1 => CFL = min[(DTF 1)(CFL), CFLMAX] 

A Qm«>CHG 2 => CFL = max[CFL/DTF 2 , CFLMIN] 

AQ™ X >0.15 => CFL = CFL/2 

The time step At is then set using the same formulas as in the IDTAU = 1 option. 

[DTAIJ = 3 

This option sets a global (i.e., constant in space) time step At equal to the input parameter DT(ITSEQ). 
IDTAU = 4 


For the first time step this option is identical to the IDTAU = 3 option. After the first time step 
however, At is modified to keep AQ m „, the maximum change in absolute value of the dependent variables’ 
within user-specified limits. The rules used to increase or decrease At may be summarized as follows: 


A Qmax < CHG 1 
AQ™x>CHG2 

AQmax >0.15 


At = min[(DTFl)AT, DTMAX] 
At = max[AT/(DTF2), DTMIN] 
At = At/2 


IDTAU = 5 

para^Lr^FL^SEQ^I e C ’ Varyi " 8 “ spaCC) time step At com Puted at each grid point from the input 


( AT )/,y — (CFL)(At 

where At c// is given above in the description of the IDTAU = 1 option. 
IDTAU = 6 


For the first time step, this option is identical to the IDTAU = 5 option. After the first time step 
however, CFL is modified to keep AQ mox , the maximum change in absolute value of the dependent vari- 

f“5?! ,7 th i n user_ specified limits. The rules used to increase or decrease CFL are the same as in the 
lUl AU = 2 option. 
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IDTAU = 7 


This option sets a global (i.e., constant in space) time step At with logarithmic cycling. The formula 
used is 


At — At 



^ T max l) 

^ T min J 


where N = mod(/? — 1, N cyc ) and n is the current known time level. The time step At is thus cycled repeat- 
edly between At^ and A-r max every N cyc time steps. The values of At^, AT mfl „ and N cyc are given by the 
input parameters DTMIN, DTMAX, and NDTCYC. 


Remarks 


1 . 


In AQ„ aJt , used in the IDTAU = 2, 4, and 6 options, the change in E r has been divided by 
Rj(y r — T) + 1/2. This is equivalent to dividing the dimensional value E T by 


E 


T r - 


Pr RT r Pr u , 2 

Vr-1 2 


This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. An error message is generated and execution is stopped if an illegal time step selection option is re- 
quested. 

3. A warning message is printed with the ID TAU — 2, 4, and 6 options if At or the CFL number is cut 
in half because AQ m „ >0.15. 

4. The Cray BLAS routine ISAMAX is used in computing the maximum value of AQ max for all the 
equations. 
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Subroutine TURBBL 

Called by 

Calls 

Purpose 

IMTC 

MAIN 

BLIN1 

BLIN2 

BLOUT1 

BLOUT2 

VORTEX 

Manage computation of turbulence parameters using Baldwin-Lomax 
algebraic model. 


Input 

CP 

* ITETA, ITXI 

* IWALL1, IWALL2 

* KBC1, KBC2 
\1U, LA, KT 

* NOUT 

* Ni, N2 
PRR 

* PR I 

* rfr 

* RFXT1, RFXT2 
RHO, U, V, W 
X, Y 

Output 

IWALL1, IWALL2 
MU, LA, KT 


MIT 


Specific heat c p . 

Flags for computation of turbulent viscosity along constant y and 
£ lines. 

Flags indicating whether or not the £ and t) boundaries are walls. 
Boundary types for the £ and tj directions. 

Laminar coefficient of viscosity p h laminar second coefficient of 
viscosity ). h and laminar coefficient of thermal conductivity k t . 

Unit number for standard output. 

Number of grid points N x and N 2 , in the f and y\ directions. 
Reference Prandtl number Pr r 

Turbulent Prandtl number Pr n or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Reference Reynolds number Re r . 

Transition Reynolds numbers Re X{ in the £ and rj directions. 

Static density p , and velocities w, v, and w. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 


Flags indicating whether or not the £ and rj boundaries are walls, 
if not set in input. 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k. 

Turbulent viscosity coefficient p r 


Description 

Subroutine TURBBL manages the computation of the effective coefficient of viscosity, second coeffi- 
cient of viscosity, and coefficient of thermal conductivity using the algebraic eddy viscosity model of 
Baldwin and Fornax (1978). It is called from MAIN during each step from time level n to n + 1, but after 
the governing flow equations have been solved. The Fortran variables RHO, U, etc., are thus at the n 4* 1 
level. The effective viscosity coefficient to be computed will therefore also be at the n+ 1 level. This, of 
course, becomes the known n level for the next time step. 

The steps involved in computing the effective coefficients are as follows: 

F Initialize the arrays for storing the turbulent viscosity p t on constant £ and >/ lines to zero. 
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2. Call VORTEX to compute |n| , the magnitude of the total vorticity vector. 

3. At each <f location, compute /j, due to walls at yj — 0 and/or yj = 1, or due to a free turbulent flow in the 
£ direction, using steps 3a - 3c. The result will be stored in the Fortran array \1UT. If bypassing the 
calculation on constant £ lines, skip to step 4 to compute on constant yj lines. 

3a. If boundary 7 types are specified using the KBC parameters, set flags indicating which yj boundaries 
are solid walls. (If the KBCs are not used, the IWALL flags have been set in the input.) 

3b. Call BLOUT1 to compute (/i f ) OMf#rl at the current £ location, for vj = 0 to 1. 

3c. Call BLIN1 to compute (ji t ) inner , at the current f location, within the inner region for a solid wall 
at yj = 0 and/or r/ =1. 

4. At each yj location, compute fi t due to walls at £ — 0 and/or £ = 1, or due to a free turbulent flow in the 
yj direction, using steps 4a - 4c. The result will be stored in the Fortran array DUMMY. If bypassing 
the calculation on constant yj lines, skip to step 5. 

4a. If boundary 7 types are specified using the KBC parameters, set flags indicating which £ boundaries 
are solid walls. (If the KBCs are not used, the IWALL flags have been set in the input.) 

4b. Call BLOUT2 to compute ( ji ) outer , at the current yj location, for £ = 0 to 1. 

4c. Call BLIN2 to compute )- meri at the current yj location, within the inner region for a solid wall 
at £ = 0 and/or £ = 1 . 

5. If the input is such that the computation of ji t is bypassed in both directions, write an error message 
and stop. 

6. If ji t is being computed on constant ^ lines only, then MUT = a r so skip to step 9. 

7. If ji t is being computed on constant r\ lines only, then DUMMY = ji n so set MUT = DUMMY and 
skip to step 9. 

8. If ji t is being computed both on constant £ lines and constant yj lines, compute a single value at each 
grid point using the averaging formula presented in equation (3.13) of Volume 1. 

9. If specified in the input, modify ji t to account for laminar-turbulent transition using a model based on 
one given by Ccbeci and Bradshaw (1984). This model is described in Section 3.4 of Volume 1. 

10. Define the necessary effective coefficients as follows: 


P = Vi + Mr 
2 = ^+ 2 , 
k = kt+ k t 

where A t = — 2/x r /3, and k t is computed using Reynold's analogy as 


k t = 


Pt c p 


The turbulent Prandtl number is either a constant specified in the input, or a variable computed using 
equation (3.19) of Volume 1. 


Remarks 


1. In the averaging formula used when ji t is computed both on constant lines and constant yj lines, the 
Fortran variables FI and F2 are 


FI - 


[ w ? + o ^] 1 ' 2 
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If (j„), and (y„) 1 are both close to zero, FI and F2 are set equal to 1/v 2 . which is the limiting value in 
the above equations as (>'„), and (y n ) 2 approach zero. 

2 The exponent in the definition of y r , is limited to 20. 

In the Fortran equation for the effective thermal conductivity, the factor PRR = Pr r is necessary for 
proper nondimensionalization of k,. 

The distance used in the formula for y tr is a straight-line distance from one point to another. It would 
probably be better to compute a curvilinear distance along the coordinate line. 

5 The scratch array DUMMY, from the common block DUMMY1, is used to store the value of the 
turbulent viscosity along constant »; lines. The array is filled in subroutines BLIN2 and BLOUT2. 
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Subroutine UPDATE 


Called by 

Calls 

Purpose 

EXEC 


Update flow' variables after each ADI sweep. 

Input 



I BASE, I STEP 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

IV 


Index in the "vectorized" direction, i v . 

JI 


Inverse Jacobian of the nonorthogonal grid transformation, J x . 

NPTS 


Number of grid points in the sweep direction, N. 

NR, NRU, NRV, NRW, NET Array indices associated with the dependent variables p, pu , pv, 

p\v, and E r . 

RIIO, U, V, 

W, ET 

Static density p, velocities u , v, and w, and total energy E T at time 
level n. 

S 


A 

Computed solution subvector, AQ. 

Output 

RIIOL, UL, VL, \VL, ETL 

Static density p, velocities u , v, and w t and total energy E r at end 
of current ADI sweep. 


Description 

A 

Subroutine UPDATE computes the primitive flow variables from the dependent variables AQ after each 
ADI sweep. For the first sweep the formulas are 

* n A * 
p = p +J&Q\ 

« =— t(p u + J&Qj) 

p 

* 1 n n A * 

v =A-(pV+ 7A ft) 

P 

* 1 / n n 

W = — (pw +JAQ 4 ) 

p 

Ej=Ej + JAQl 

A A 

w r here through A Q s are the dependent variables in delta form for the five governing equations. 34 For the 
second ADI sweep, the superscript * should be changed to n + 1 on p, u, v, vc, and E T , and to n on AQ. 


34 These formulas are written for the most general case - axisymmetric flow with swirl and non-constant stagnation 
enthalpy. For simpler cases there may be only three or four equations. 
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Remarks 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 
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Subroutine VORTEX 


Called by 


TURBBL 



Purpose 


Compute magnitude of total vorticity. 


* ALPHA 1, ALPHA2 

ETAX, ETAY 

* M,N2 
U, V, w 
XIX, XIY 
Y 

Output 

VORT 

Description 


Spatial difference centering parameters a, and oc 2 , for the £ and rj 
directions. 

Metric coefficients rj x and *] y (or r\ r if axisymmetric.) 

Number of grid points and A 2 , in the £ and rj directions. 
Velocities w, v, and w. 

Metric coefficients and (or £ r if axisymmetric.) 

Radial coordinate r for axisymmetric flow. 


Total vorticity magnitude. 


Subroutine VORTEX computes the magnitude of the total vorticity vector. For two-dimensional 
planar flow this is defined as 


dv _ du 
dx dy 


and for axisymmetric flow, 


l s l=[(^ +J 0 2+ (lr) 2 + (£-lT 


Note that, for flow without swirl, the definition for axisymmetric flow is the same as for two-dimensional 
planar flow. 

Using the chain rule, these can be rewritten in generalized nonorthogonal coordinates. For two- 
dimensional planar flow, 


and for axisymmetric flow, 


ft = I (*x v S + >1x v r,) - (iy u S + *ly u v ) I 


_ 2 

| ft | = + >1r w v + -T ) + + 1x w , ,) 2 + Hx v > + n x v r, * &{ ~ r lr u n ) 2 \ 

At interior points, the variably centered difference formula presented in Section 6.0 of Volume 1 is used 
to numerically compute the derivatives in the above equations. At boundary points, second-order one-sided 
difference formulas are used. 
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